socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or die " cant make socket : $!"
or die "cant connect : $!";