use strict;
use warnings;

use XML::Writer;
open(my $fh, ">", "tmp.xml") or die "Err: $!";
my $w = XML::Writer->new(
  OUTPUT => $fh,
);

$w->emptyTag('root');
$w->end();
close $fh;