Help for this page

Select Code to Download


  1. or download this
    #Server.pl
    #!/usr/local/bin/perl
    ...
    
    close($server);
    <>;
    
  2. or download this
    #Client.pl
    use strict;
    ...
                         }
    close($socket);
    <>;
    
  3. or download this
    if(defined($child_pid)){}
    if($child_pid){}
    if($child_pid==1){}
    if($child_pid==0){}
    
  4. or download this