open my $fh, '>', $filename or die "Can not open file $filename: $!";
print $fh <<"EOF";
<?xml version="1.0" encoding="UTF-8"?>
<XML TAGS>
<SERIES>$series</SERIES>
<ETC>$etc</ETC>
<ETC>$etc</ETC>
</XMLTAGS>
EOF
close $fh;