New Book: Perl Hacks

[Alex Knowles]

> there's no such thing as sick perl.

          s''openZF,"
        >o.bmp";printZF
       Zpack("a2L13",BM,
      37686,0,54,40,112,11
     2,1572865,0,37632),map
     {chr(($_%112-55)**2+($
     _/112-55)**2<3025?255-
     3*(($_/112-75)**2+($_%
      112-75)**2)**.5:0)x3
       }0..12544';s#\s##g
         ;s#Z# #g;eval


indeed.

al
(check for o.bmp).