Select Code to Download

my $one  = 1;
...

print $six; # prints 9

#!/usr/bin/perl -l
...
print my $J = my $A = my $P = my $H =
'Just',' Another ','Perl',' Hacker';