# Pastebin 2EncEfke
$ ./perl6 -e '
proto MAIN(:$*v, |)   {*}
multi MAIN($a)        {say $*v, $a}
multi MAIN($a, $b)    {say $*v, $a, $b}
multi MAIN($a, :$*v!) {say $*v, $a}
'
Usage:
  -e '...' [-v=<Any>] <a> 
  -e '...' [-v=<Any>] <a> <b> 
  -e '...' -v=<Any> <a>