{
  package SimpleSrv;
  use parent 'HTTP::Server::Simple::CGI';
  sub handle_request {
    my ($self,$cgi) = @_;
    print "HTTP/1.1 200\x0D\x0A";
    print $cgi->header(-type=>'text/plain');
    print "<<<".($cgi->param('POSTDATA')//"undef").">>>\n";
  }
}
my $server = SimpleSrv->new(8080);
$server->host('127.0.0.1');
$server->run();