Select Code to Download

# server.pl

...
  }
}
__END__

# client.pl

...
close($socket);

__END__

$ perl client.pl localhost
Reached Server

$ perl server.pl
Waiting to do service...
...
            'husband' => 'homer'
          }
        ];