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;
}