old and ordinary

JAPH->Just->Another->Perl->Hacker;

package JAPH;

sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } 

sub DESTROY {}
[download]

Comment on old and ordinary Download Code

Replies are listed 'Best First'.
Re: old and ordinary by liverpole (Monsignor) on Jan 11, 2009 at 21:18 UTC
I think it's quite funny that ... Read more... (1230 Bytes) s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply] [d/l] [select]