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