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;