crear archivo xml

[eduardo1983]

esta es la solucion

my $archivo='oscar.xml';
my $contenido="<?xml version='1.0' encoding='iso-8859-1'?>
<banners>
<banner nombre='psi'></banner>
<banner nombre='psiworkflow'></banner>
</banners>";

open(DAT,">/home/$archivo") || die("No puedo crear el archivo");
print DAT "$contenido";
close(DAT);