package Foo;
use base qw(Net::Server::Fork);

my @ports = qw(20203 20204 20205);
my @dbs   = qw(tom   jim   jane);
my %p_map; @p_map{@ports} = @dbs;

Foo->run(port => \@ports);

sub process_request {
    my $self = shift;
    my $port = $self->get_property('sockport');
    my $db   = $p_map{$port};

    print "Welcome!  You connected on port $port - your db is $db\n";

    # run default echo server
    $self->SUPER::process_request(@_);
}