#!/usr/bin/perl -w

use strict;

eval'if(!defined&$_){s/(.)/sub$"$1\$"{print$"\'$1\'}/;eval;s/.*(.)..$/
+$1/}1'
?eval"&$_"?1:$@?$@=~/94/?0:print:1:1for(split//,"Just Another Perl Hac
+ker\n")
[download]