Well, here's the code...

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

However, now it's giving me an error about '-label' being a bad window path name in the Tk modules?