IO::Socket::socket(/usr/perl5/5.8.4/lib/sun4-solaris-64int/IO/Socket.pm:78):
78:         my($sock,$domain,$type,$protocol) = @_;
  DB<64>
IO::Socket::socket(/usr/perl5/5.8.4/lib/sun4-solaris-64int/IO/Socket.pm:80):
80:         socket($sock,$domain,$type,$protocol) or
81:             return undef;
  DB<64> x $sock
0  IO::Socket::INET=GLOB(0x4ea3bc)
   -> *Symbol::GEN0
  DB<65> x $domain
0  2
  DB<66> x $type
0  'SOCK_STREAM'
  DB<67> x $protocol
0  6
  DB<68>
IO::Socket::INET::_error(../Perl/IO/Socket/INET.pm:69):
69:         my $sock = shift;
  DB<68>
IO::Socket::INET::_error(../Perl/IO/Socket/INET.pm:70):
70:         local($!);
  DB<68> x $sock
0  IO::Socket::INET=GLOB(0x4ea3bc)
   -> *Symbol::GEN0
  DB<69> x $!
0  'Protocol not supported'