... -command => sub { print "Hallo\n"; } ...