# Pastebin NZD7iDlu
$ perl6 -e '
proto MAIN(:$v = 42, |) {my $*v = $v; {*}}
multi MAIN("cmd1")      {say "cmd1: $*v"}
multi MAIN("cmd2")      {say "cmd2: $*v"}
' cmd1
cmd1: 42