print BATCH $newfile, "\n";