open XMLFILE, '>', $filename)
    or die "Couldn't create '$filename': $!";