use strict;
use warnings;
use Socket;

my $perlmonks1 = inet_aton("66.39.54.27");
my $perlmonks2 = v66.39.54.27;

print "Holy crap, this really works?\n" if $perlmonks1 eq $perlmonks2;

##</code><code>##

for my $IP (qw(66.39.54.27 209.197.123.153 208.159.114.4)) {
    my $perlmonks1 = inet_aton($IP);
    my $perlmonks2 = eval qq{ v$IP } or die $@;

    print "Holy crap, this really works ($IP)?\n" if $perlmonks1 eq $perlmonks2;
}