#! /usr/bin/perl
use warnings;
use strict;
use POE;
use POE::Component::Server::HTTP;
use HTTP::Status;

use vars qw($Port);
$Port = 8889;


my $httpd = POE::Component::Server::HTTP->new
    (
     Port => $Port,
     ContentHandler => { '/' => \&MainHandler },
     Headers => {Server => 'any server' },
     );

POE::Kernel->call($httpd, "shutdown");

sub MainHandler {
    my ($request, $response) = @_;

    $response->code(RC_OK);
    $response->content("Hi, you fetched ". $request->uri);
    return RC_OK;

} # MainHandler