Help for this page

Select Code to Download


  1. or download this
    while (<$first>) 
        {
    ...
            }        
                    
        }
    
  2. or download this
    if($name eq $match)
            {    
    ...
                
                last;
            }
    
  3. or download this
    my $socket = IO::Socket::INET->new('LocalPort' => $PORT,
                           'Proto' => 'tcp',
    ...
        'PeerPort' => $PORT,
        'Proto' => 'tcp')
    or die "Second: Can't create socket to Third($!)\n";
    
  4. or download this
    while(my $handle = $socket->accept)
    {
    ...
          #do something with $_
      }
    }