Select Code to Download

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

print FILEHANDLE "$Sorry_line \n" for (1..$punitive_cnt);