open my $fh, '<', '/home/test.xml' or die "Could not open file\n";
printFile($fh);
close $fh;

##</code><code>##

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