Help for this page

Select Code to Download


  1. or download this
    my $s_socket = IO::Socket::INET->
    new('LocalPort' => $S_PORT,
    ...
    or die "Third: Can't create socket to Second($!)\n";
    
    while (my $second = $s_socket->accept) {...}
    
  2. or download this
    while(<$second>)
    {
    ...
    }
    
    }