44:       if(defined $proto) {
IO::Socket::INET::_sock_info(/usr/local/lib/perl5/5.6.1/IO/Socket/INET.pm:45):
45:         if (@proto = ( $proto =~ m,\D,
46:                     ? getprotobyname($proto)
47:                     : getprotobynumber($proto))
48:         ) {
IO::Socket::INET::_sock_info(/usr/local/lib/perl5/5.6.1/IO/Socket/INET.pm:52):
52:           $@ = "Bad protocol '$proto'";
IO::Socket::INET::_sock_info(/usr/local/lib/perl5/5.6.1/IO/Socket/INET.pm:53):
53:           return;
IO::Socket::INET::_error(/usr/local/lib/perl5/5.6.1/IO/Socket/INET.pm:83):