my $ftpinfo=MainWindow->new;
my $ftpinfomenu = $ftpinfo->Menubutton(-text=>"File",-underline=>1,-menuitems=>[
[button=>"Clear",-command=>\&clearentries],
[button=>"Save Entry",-command=>\&saveentries],
[button=>"Load Entry",-command=>\&loadentry],
[button=>"Close Window",-command=>sub{$ftpinfo->destroy}],
])
-pack(-side=>"right");