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{ DoSomething(); DoAnotherThing(); } }
);