or download this
$_="JUST ANOTHER PERL HACKER,";use GD;$i=new GD::Image(113,350);$i->fi
+ll
(0,0,$i->colorAllocate(255,255,255));s#.{5}#$d=5;@a=($q=0,map{$d+=$f++
+%2
...
.$_.C,"5A;eKYWc_3")-40<<1;$z=~s/./1^$&/eg;$m=reverse$z;${qw.l m m l l
+m.
[$c++%12]||z}}}101,splice(@a,0,6,"01010"),@a,101;$y+=70#eg;print$i->pn
+g