Select Code to Download

$tray->setMenu (
        "> &Test" => sub { print "Hello from the Tray\n"; },
...
        ">-"      => 0,
        "> E&xit" => sub { return -1 },
);