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

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