--- begin program test.pl ---
print;
---- end program ---

How to use:
perl -n test.pl test.pl