Is it cheating to use the shell?

#!/usr/bin/perl
exec"cat $0"
[download]

If you're ok with letting the output happen on STDERR instead of STDOUT:

#!/usr/bin/perl
die`cat $0`
[download]

...which shaves off one keystroke.