Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl
use strict;
...
  print "$_ sock=$sock\n";
  print ref($sock), $/;
}

Select or download this

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