if (-f $file) {
   open (FH, "<$file");
   print <FH>;
}
[download]

That displays only the first line of the file. I think the OP wants to display the whole file. Did you mean print while <FH>;? Sorry, I didn't realize <> loads the whole file as an array in list context.