use Tk;
use Tk::PopupButton;

my $mw = new MainWindow;

my $menu = [[ 'command' => 'Funktion1',
              -command  => sub { print "Funktion1\n"; }],
            [ 'command' => 'Funktion2',
              -command  => sub { print "Funktion2\n"; }]];

$mw->PopupButton(-text => 'weitere Funktionen...',
                 -menu => $menu
                 )->pack();

MainLoop();