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