my $rv = socket ($s, AF_INET, SOCK_RAW, IPPROTO_RAW);