[Perl] SOS XML y CGI

[John Robeto]

Hola a todos, hace un par de días que tengo un
problema. He creado un formulario en el que un usuario
introduce un texto y debe recibir como salida el mismo
texto transformado en XML (es un texto marcado). El
script que se ejecuta con el botón de envío del
formulario es el siguiente pero como veréis al final,
no sé cómo terminarlo

use CGI;
$query = new CGI;
print $query->header;

# Primero: recupero la entrada del formulario
# que es un texto, en el archivo ">texto.txt”
open (TXT, ">texto.txt");
print TXT $query->param('textoEntrada');
close (TXT);

# Segundo: llamo a una módulo que es el encargado de
# convertir la entrada en XML. Este módulo genera el
# archivo salida.xml
use myModulo qw(xml);
xml("texto.txt");

# Tercero: debo poder visualizar salida.xml en el
navegador,
# que será lo que reciba el usuario que introduce el
texto
print "Content-Type: text/xml\n\n”; #creo que va esto
print ….. #AQUÍ ES DONDE FALLO, CÓMO DEBE IR LA
SALIDA?


GRACIAS SOS

John


		
______________________________________________________________________
Correo Yahoo! - 6MB, más protección contra el spam ¡Gratis!
http://correo.yahoo.es