How about this?

#!perl

open 0;print for<0>;
[download]

This takes advantage of

• Single-argument open opens a filehandle *X using the value stored in $X as the filename. Since $0 contains the filename of our program, *0 will be opened as our filehandle.

• print for<0>; reads from filehandle *0 and prints the content.