#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::IP;

my $sock = IO::Socket::IP->new(
        PeerHost =>"www.google.com",
        PeerPort => "http",
        Type     => SOCK_STREAM,
) or die "Cannot construct socket: $@\n";

my $familyname = ( $sock->sockdomain == AF_INET ) ? "IPv4" : 
                                        "unknown";                                                                                                                                            
printf "Connected to google via %s\n", $familyname;