sub printFile {
 my $fh = $_[0];
 while (<$fh>) {
  print $_;
 }
}