Select Code to Download

sub ccc{65}
print "\n" . ccc.ccc.ccc.ccc;  # this evaluates to numbers
print "\n" . 65.65.65.65.65;   # this evaluates to letters
# Ok. It's a little weird, but it is what it is.

sub MY{ my $K = __SUB__; }  # Why is this giving me an error?

sub P{(6,7,8)}       # returns an array