Select Code to Download

                while ($new_remote = $sock->accept) {
                    $new_remote->autoflush(1);
...
                        last;
                    }        
                }

sub AuthUser
{
...
    close (PWD);
    return ($auth_rc);
}

      $user = substr($user, 0, -1);
      $pass = substr($pass, 0, -1);