use strict;
use warnings;
package webserver;
use MyWebserver;
use Net::Server::PreFork;
use base qw(Net::Server::PreFork);

sub process_request {
    my $self = shift;
    my $pid = MyWebserver->new()->background();
}

webserver->run(port => 8080);