Select Code to Download

use strict;
use warnings;
...
my $perlmonks2 = v66.39.54.27;

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

for my $IP (qw(66.39.54.27 209.197.123.153 208.159.114.4)) {
    my $perlmonks1 = inet_aton($IP);
...

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