Select Code to Download

# a little tricky
print "\ntrick one\n";
...
print "\ntrick four\n";
sub'x{print "x called\n"}
x;

sub _ { print "perl "; ::->() }
sub :: { print "hacker\n"}
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());

sub :: { print "hacker\n"}
sub _ { print "perl "; ::->() }
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());