BEGIN {
    require Tk;
    import Tk;
}
$top = tkinit;
$mb = Menubutton::new($top, "-text" => "Press for menu");
$subm = Menu::new($mb);
foreach ("one", "two", "three") {
    $subm->add("command", "-label" => $_);
}

$m = Menu::new($mb);
$m->add("command", "-label" => "Open", "-method" => "::sayopen");
$m->add("command", "-label" => "Close", "-method" => "::sayclose");
$m->add("separator");
$m->add("cascade", "-label" => "Submenu", "-menu" => $subm);
$m->add("command", "-label" => "Exit", "-method" => "::doexit");

$mb->configure("-menu" => $m);
tkpack $mb;
tkmainloop;

sub sayopen { print "Open something\n" }
sub sayclose { print "Close something\n" }
sub doexit { die "Goodbye cruel world\n" }