ghosh123 has asked for the
wisdom of the Perl Monks concerning the following question:

Hi
I have this following perl code of 5 lines. How can I make it run (or compile) without modifying or doing any correction in the first 5 lines.
I will not put the strings in "" or won't use any pragma in the first 5 lines to make it run. Can anything be done from line 6 to make it run.
Is that possible ?

I tried putting the logic into a BEGIN block, but without success. It is perhaps too late on line 6.

When testing code samples, I name them 1.pl, 2.pl, 3.pl and so on. The next day, I remove all of them and start again from 1. It is shorter than using the node's id in the name, but still lets me keep several answers ready for improvement if there are objections, which simple junk.pl would not do :-)