#!/usr/bin/perl

use strict;
use warnings;

use HTTP::Response;

my $respbody = '<root/>';
my $response;

$response = HTTP::Response->new('200','Ok');
$response->header( 'Content-type' => 'application/xml' );
$response->header( 'Cache-control' => 'no-cache, must-revalidate' );
$response->header( 'Content-length' => length($respbody) );
$response->content($respbody);

print $response->as_string;

1;

__END__