socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!";

print "Host reached\n-----------------\n" ;


##</code><code>##

    send SOCK, "$lines\n",MSG_OOB ;


    $res = recv SOCK, $line,1024,MSG_OOB ;
    while ( defined($res) )
    {
        print $line ;
        $res = recv SOCK, $line,1024,MSG_OOB ;
    }

    print "Closed\n" ;
    close SOCK ;