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

    $response->code(RC_OK);
    $response->content( get_content($request) );

    return RC_OK;
}

##</code><code>##

sub create_httpd {
    my ($kernel, $heap, $Port) = @_[KERNEL, HEAP, ARG0];

    $kernel->alias_set('httpd_parent');

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

    $heap->{httpd} = $httpd;
}