open (IN, "<myfile.txt"); {local $/; $file_content = <IN>;} print $file_content; [download]
In reply to Slurp a file by Anonymous Monk