perl-авторизатор не работает, помогите разобраться

#!/usr/bin/perl -w
#
#use strict;
use IO::Socket ();
use Digest::MD5 ();
use vars qw(%secret);
$| = 1;
my $PORT = 8899;
my $MIN_CHALLENGE_LENGTH = 32;
my $MAX_CHALLENGE_LENGTH = 64;
if ($#ARGV < 2 or ($ARGV[1] ne "1" and $ARGV[1] ne "2")) {
    print "Usage: $0 password accesslevel gatewayaddress\n";
    print "	where access level is 1 or 2 -- internal and external traffic.\n";
    die;
}
my $PASS = $ARGV[0];
my $ACCLEV = $ARGV[1];
my $GWADDR = $ARGV[2];
my $proto = "";
my $h = IO::Socket::INET->new('PeerAddr' => $GWADDR,
                              'PeerPort' => $PORT);
&read_handle(\$proto, 1);
...
...
sub read_handle {
    my($ref, $len) = @_;
    die "Socket closed.\n" if !$h->opened;                            ####### вот та строка, где появляется ошибка
    my $recvlen = sysread($h, ${$ref}, $len);
    die "Error reading socket.\n" if !defined($recvlen) or $recvlen != $len;
}

 perl /usr/bin/auth_client.pl 'пароль' 2 'ip-адрес' &