Bloque T2.9

Crear un CGI que responda a un interfaz REST y devuelva un fichero XML.

use CGI qw(:standard);
use XML::Simple;
my $url = param('url');
my $documento = XMLin('casa.xml');
print header( -type => '$url' );
print XMLout($documento);