Select Code to Download

package Foo;
use base qw(Net::Server::Fork);
...
    # run default echo server
    $self->SUPER::process_request(@_);
}

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

...
  max_requests => 5,
  port         => \@ports,
);