$ perl server-fork.pl 0 &
$ time perl client.pl 1000 > /dev/null
real    0m40.018s
user    0m0.052s
sys     0m0.015s