#! /usr/system/bin/perl

$punitive_cnt = 1000;
$Sorry_line = "I will not write punny PERL in class!";


# Begin act of contrition
open(FILEHANDLE,">>blackboard.txt");

  while($punitive_cnt != 0){
      print FILEHANDLE "$Sorry_line \n";
      $punitive_cnt--;
      };

close(FILEHANDLE);

# Show your contrition
open(FILEHANDLE,"blackboard.txt");
while(<FILEHANDLE>){
  print "line: $_\\n";
}