Help for this page

Select Code to Download


  1. or download this
    # a little tricky
print "\ntrick one\n";
...
print "\ntrick four\n";
sub'x{print "x called\n"}
x;
  2. or download this
    sub _ { print "perl "; ::->() }
sub :: { print "hacker\n"}
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());
  3. or download this
    sub :: { print "hacker\n"}
sub _ { print "perl "; ::->() }
sub ::1 { _ print  "another "}
sub ::0 { print "just " }
1->(%1->());