# Pastebin QBfp29MQ
MacBook-Pro-de-Fernando:Red2 fernando$ perl6 -e '

multi MAIN(Int $number, Bool :$*debug!) { MAIN $number }

multi MAIN(1) { say "1"; say "debug" if $*debug }

'
Usage:
  -e '...' --debug <number>
  -e '...' 1
MacBook-Pro-de-Fernando:Red2 fernando$ perl6 -e '

multi MAIN(Int $number, Bool :$*debug!) { MAIN $number }

multi MAIN(1) { say "1"; say "debug" if $*debug }

' 1
1
MacBook-Pro-de-Fernando:Red2 fernando$ perl6 -e '

multi MAIN(Int $number, Bool :$*debug!) { MAIN $number }

multi MAIN(1) { say "1"; say "debug" if $*debug }

' --debug 1
1
debug