Not exactly obfuscated, but it demonstrates a potentially useful feature ( and it prints `Just Another Perl Hacker'!):

#!/usr/bin/perl
#Just Another Perl Hacker
seek(DATA,0,0);(undef,$_)=
<DATA>
;s/^.//;print
__DATA__
[download]