use warnings;
use strict;

use Tk;
use Tk::NoteBook;
use Tk::BrowseEntry;

my @product_list = (qw/asdf lijlj/);
my @package_list = (qw/opiu qwerty/);
my $product_st;
my $package_st;

my $mw = MainWindow->new();
$mw -> geometry("1000x400");


my $book = $mw->NoteBook()->pack();

my $title = $mw -> title("Spec Analysis");

$mw ->BrowseEntry(-label => 'Product', -choices=> \@product_list, -variable => \$product_st, -browsecmd =>\&getselect_product, -font => "courier 11 bold" ) ->place(-x=>1,-y=>120);  
$mw ->BrowseEntry(-label => 'Package', -choices=> \@package_list, -variable => \$package_st, -browsecmd =>\&getselect_package, -font => "courier 11 bold" ) ->place(-x=>275,-y=>120); 
 
MainLoop;