Okay, I'll play!

#!/usr/bin/perl
use warnings; # This didn't work, that's why I'm being punished
use strict;   # punishment should always be strict
my $repetitions = 1000; # I've been really bad!
# Start with a...
open(BLACKBOARD, ">/dev/clean_slate");
for(my $line = 1; $line <= $repetitions; $line++) {
  print BLACKBOARD "$line: I must strive to do better in my studies.\n
+";
}
#close(BLACKBOARD); # whoever heard of closing a blackboard!?
[download]