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;