Well, this is my piece of (deliberately) obfuscated Perl.

#!/usr/bin/perl
$s = pack "C32", 
(51, 90, 40, 41, 92, 124,28, 10, 
18, 72, 47, 51, 112,24, 68, 77,
67, 125,116,105,107,99, 109,122,
38, 80, 82, 73, 78, 84, 0,  37); 
$_ = qq/JAPH!?qq[\\\$_];\/\\\$_|=ref  \$a[;/; $a=q #qq\#\$_#;
$Just Another Perl Hacker.      
$; eval #s/0-9/9-0/;#
eval eval qq^qq\^\\\$s\\\^\\\$a\^^ && eval;
[download]

--
Ryan Koppenhaver, Aspiring Perl Hacker
"I ask for so little. Just fear me, love me, do as I say and I will be your slave."