Help for this page

Select Code to Download


  1. or download this
    $ perl server-fork.pl 1 &
    $ time perl client.pl 1000 > /dev/null
    real    0m0.163s
    user    0m0.093s
    sys     0m0.021s
    
  2. or download this
    $ perl server-fork.pl 0 &
    $ time perl client.pl 1000 > /dev/null
    real    0m40.018s
    user    0m0.052s
    sys     0m0.015s
    
  3. or download this
    use strict;
    use IO::Select;
    ...
            }
        }
    }
    
  4. or download this
    use strict;
    use IO::Socket::INET;
    ...
        }
    }
    print $sock "QUIT\n";