Help for this page

Select Code to Download

Select or download this

printFile($file) or warn "Could not printFile, '$file': $!";

...
  print while (<FH>);
  close FH; # do not complain if it cannot
}