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

##</code><code>##

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

##</code><code>##

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