#!/usr/local/bin/perl
use strict;
use warnings;

use IO::Socket::INET;
my $sock;
for ("tcp","udp","icmp","ugly") { # include a bad one
  $sock = IO::Socket::INET->new(Proto=>$_) or die "Oops: $@";
  print "$_ sock=$sock\n";
  print ref($sock), $/;
}