my $times = shift || 500;
my $line = <DATA>;
while( $times-- ) {
  print "$line\n";
}
__DATA__
I will not throw paper hairplanes in class.

##</code><code>##

 for( count = 0; count < 500; count++ )