sub net_server { my $server = 'Net::Server::PreFork'; return $server; }