$ ./socktest.pl
tcp sock=IO::Socket::INET=GLOB(0xa0aa72c)
IO::Socket::INET
udp sock=IO::Socket::INET=GLOB(0xa0aa6c0)
IO::Socket::INET
icmp sock=IO::Socket::INET=GLOB(0xa0aa78c)
IO::Socket::INET
Oops: IO::Socket::INET: Bad protocol 'ugly' at ./socktest.pl line 8.