#!/usr/bin/perl -w
use strict;
use Net::HTTPServer;
my $server = new Net::HTTPServer(
port => 6789,
log => "STDOUT"
);
$server->RegisterURL( "/foo/bar.pl", \&test );
my $port = $server->Start();
$server->Process();
if ($port) {
print "Port: $port\n";
}
sub test {
my $env = shift;
my $res;
$res = "\n";
$res .= " \n";
$res .= " This is a test\n";
$res .= " \n";
$res .= " \n";
$res .= " \n";
foreach my $var ( keys ( %{$env})) {
$res .= "$var -> ".$env->{$var}."\n";
}
$res .= " \n";
$res .= " \n";
$res .= "\n";
return ["200",
(),
$res
];
}