Select Code to Download

       if($name ne $user) {

    while(<USERNAME>)                     # reads first entry
        {
        my @newusername = <USERNAME>;     # reads remaining entries
    foreach $name (@newusername)
        ...

...
my $found;
...
    exit;
}
print $client_socket "ACK\n";