Help for this page

Select Code to Download


  1. or download this
           if($name ne $user) {
    
  2. or download this
        while(<USERNAME>)                     # reads first entry
            {
            my @newusername = <USERNAME>;     # reads remaining entries
        foreach $name (@newusername)
            ...
    
  3. or download this
    ...
    my $found;
    ...
        exit;
    }
    print $client_socket "ACK\n";