Help for this page
open (FILE, file.txt' || die "can't open file \n\n $!"); @FileInfo=<$file_name>; ... print FILE (@newFile); close (FILE);