Wow, nice to se something happening on this list. :)
Would anyone like to rate my old JAPH below? (Don't know how to rate it, but maybe it can be fun to figure that out... ;)
- Salve (Oslo.pm)
--
#!/usr/bin/perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':4@,$'.# <s...@foo.no>
'2!--"5-(50P%$PL,!0X354UC-PP%/0\`'."\n"));eval "&{'@_'}"; __END__ is near! :)
