socket ($sock, PF_INET, SOCK_STREAM, $proto) || die $!;