print BATCH $newfile;