Select Code to Download

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

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