use base qw(Net::Server::PreForkSimple);

Foo->run(
  max_servers  => 5, # from jwlewis sample code
  max_requests => 5,
  port         => \@ports,
);