Program name

In Perl 6, the name of the program being executed is in the special global variable $*PROGRAM-NAME.

say $*PROGRAM-NAME;