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

sub printFile {
  my ($file) = @_;
  open FH, "<$file" or return;
  print while (<FH>);
  close FH; # do not complain if it cannot
}