&connect_host;
send(SOCKET,$begin, 0);

while (defined($_ = <SOCKET>)) {
       if ($_ =~ /3point\>/ig){
              $valid = 1;
               close SOCKET;
        } else {
               $valid = 0;
               close SOCKET;
        }
}

if ($valid == 1){
        print "valid server\n";
} else {
        print "invalid server\n";
}

sub connect_host{
$iaddr = inet_aton($host) or die "ERROR1: $!\n";
$port = sockaddr_in($port, $iaddr) or die "ERROR2: $!\n";
$proto = getprotobyname('tcp') or die "ERROR3: $!\n";
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "ERROR4: $!\n";
connect(SOCKET, $port) or die "ERROR5: $!\n";                         
}