$applemenu->command(-label => 'Hello', -command => sub { print "Hello\n" });