use Tk;
tkinit->BrowseEntry(qw! -label label!)->pack;
MainLoop;