Select Code to Download

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

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

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

...

    print "Closed\n" ;
    close SOCK ;