BEGIN {
  my $outfile = 'output.xml';
  close STDOUT;
  open STDOUT, ">", $outfile
    or die "Couldn't create '$outfile': $!";
};