Select Code to Download

# simple-perl-server.pl
package MyPackage;
...
    } # while <STDIN>
}
MyPackage->run(port => $port, ipv => '*');

# simple-perl-client.pl

...
close $client_socket;
sleep(1);
print "$0 : done $N sets/gets in ".($end_time-$start_time)." seconds.\
+n";