Select Code to Download

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

sub printFile {
 my $fh = $_[0];
...
  print $_;
 }
}