Select Code to Download

 
sub print_tofile{
open(TMPFILE, ">>$file") or die "Can not open $file\n";
...
  } # End of while.
close TMPFILE;
}