if (-f $file) {
     $fileContents = `cat $file`;
     print $fileContents;
  }

##</code><code>##

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