use strict;
use Tk;

my $nw = MainWindow->new();
$nw->title('gg');
my $fr = $nw->Frame(-relief=> 'groove')->pack();
my $mb = $fr->Menubutton(-text=> 'datei')->pack();

Mainloop();