open(NEWFILE,") { print $_; } close(NEWFILE);