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

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