Even with this "woefully underdocumented" way to do it, you can still use "-onClick" :

my $menu = Win32::GUI::Menu->new(
      "Title text"   => "Title name"
    , "> Opt 1 text" => { -name => "opt1_name", -onClick => \&function
+_for_opt1 }
    , "> -"          => 0 # separator
    , "> Opt 2 text" => { -name => "opt2_name", -onClick => sub{ DoSom
+ething(); DoAnotherThing(); } }
);
[download]