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