Select Code to Download

$ perl server-fork.pl 1 &
$ time perl client.pl 1000 > /dev/null
real    0m0.163s
user    0m0.093s
sys     0m0.021s

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

use strict;
use IO::Select;
...
        }
    }
}

use strict;
use IO::Socket::INET;
...
    }
}
print $sock "QUIT\n";