#!/usr/bin/perl
sub :::::: {eval qq{ sub $_[0] { print \"$_[0] \"}};$"++; bless{}; } 
@a = qw(just another perl hacker);print"\n" if hacker{&::::::($a[$"]
)}perl{&::::::($a[$"])}another{&::::::($a[$"])}just{&::::::($a[$"])}
[download]