Help for this page

Select Code to Download


  1. or download this
                    if($name eq $match)
            {
    ...
                    print "Received from [$f_host $f_port]: $name\n";     
                }
            }
    
  2. or download this
    use IO::Socket;
    use strict;
    ...
        }
    }
    die "Second: Can't accept socket from First($!)\n";