Select Code to Download

my $out_fh;
open($out_fh, ">", "myfile.xml") or die "Cannot open myfile.xml - $!";

print {$out_fh} "<greeting>Hello World!</greeting>\n";

open(STDOUT,">","myfile.xml") or die "Cannot redirect STDOUT to myfile
+.xml - $!";