When you read from a filehandle like so

$line = <IN>;
[download]

You get the actual line, if you use an array,

@lines = <IN>;
[download]

you will end up with the whole file in the array, one line per array element.

btw, the probably shortest way (ahem), to open a file and print it is simply

open IN, "file";
print <IN>;
[download]

or

use File::Slurp;
print read_file("file");
[download]