#!/usr/bin/perl -w
#justanotherperlhacker
use strict;
open*_,$0;<_>;
(y,#,,d,s,t,t ,,s,r,r ,,s,l,l ,,y,j,J,,y,p,P,,s,$,.,,print,goto'')
for<_>
[download]

... and another happy little comma lives over here.

Not particularly obfuscated, but I think it's enough to initially confuse someone who isn't paying attention. It does use a few fun tricks, though, and it passes warnings and strictures.