sub xmlout {
    my ($conf, $filename, $root, $decl) = @_;
    my $parser = XML::Simple->new;
    open my $fh, '+<', $filename;
    flock($fh, 2);
    $parser->XMLout($conf, Outputfile => $filename, RootName => $root, XMLDecl => $decl);
    close($fh);
}