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