#!/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__


##</code><code>##

http://localhost/tia/signage/edit/myresp.pl

GET /tia/signage/edit/myresp.pl HTTP/1.1
Host: localhost
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:45.0) Gecko/20100101 Firefox/45.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-US,en;q=0.5
Accept-Encoding: gzip, deflate
Connection: keep-alive

HTTP/1.1 200 OK
Content-Length: 105
Date: Sun, 08 Jan 2017 23:08:16 GMT
Server: lighttpd

##</code><code>##

200 OK
Cache-Control: no-cache, must-revalidate
Content-Length: 7
Content-Type: application/xml

<root/>

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

print "Status: 200\n";
print "Content-Type: application/xml\n\n";
print "<root/>\n";

1;

__END__