#!/usr/bin/perl
use warnings;
use strict; # keep the strict nuns happy :-)

for( 1..100){
print "Hail Mary full of grace, slap the devil across the face\n"; 
}
 
exec ("echo 666 > /dev/null" );
[download]

Back in the days of the C64, and the word processor, Speed Script, I got in trouble for nearly the same thing.

"I will not do something something w/e it was"

Copy.. paste paste paste paste paste paste.. count lines... print. This was when I was in a parochial school, and much more literal minded. :) I got in trouble. :( Again.

Did you pray this prayer?\n";<br>
[download]

Naaah, I didn't even read it. Just gave a peek. Not really interested in prayers.

I used strict and warnings and I believe the she bang line should work on most modern computers

Whoa! This is the cleanest and most correct Perl code you posted thus far, the only error being a spurious <br> tag that for perl is an attempt to read from the br filehandle:

aleph:~ [17:41:57]$ perl -c 600859.pl
Name "main::br" used only once: possible typo at 600859.pl line 30.
600859.pl syntax OK
aleph:~ [17:42:06]$ perl 600859.pl >/dev/null # A better place!
Name "main::br" used only once: possible typo at 600859.pl line 30.
readline() on unopened filehandle br at 600859.pl line 30.
[download]

Incidentally, for multiline strings you may be interested in HERE documents which are slightly less error prone and all in all, cleaner: look them up in perldoc perlop.

Repent, harlequin!, said the Anonymous Monk :-)