use strict;
use POE qw(Component::Server::SimpleHTTP Component::Server::SimpleContent);
my $path = 'content';
my $content = POE::Component::Server::SimpleContent->spawn( root_dir => $path );
POE::Component::Server:;SimpleHTTP->new(
ALIAS => 'httpd',
ADDRESS => '127.0.0.1',
PORT => 8080,
HANDLERS => [
{
DIR => '.*',
EVENT => 'request',
SESSION => $content->session_id(),
},
],
);
$poe_kernel->run();
exit 0;