#!/usr/bin/perl -w 
########################################################################
use strict;
use LWP::UserAgent;

# NOTE:  make sure you mimic a browser with the agent name
#        whatismyip.com specifically returns a 403 error otherwise
my $ua = LWP::UserAgent->new(agent=>"Mozilla/5.0");

my $response = $ua->get("http://automation.whatismyip.com/n09230945.asp");

if ( $response->is_success ) {  # this is how I caught the 403 orginally
    printf "%s\n",$response->decoded_content;
} else { 
    printf "Bad Ju-Ju happened:\n\t%s\n",$response->status_line;
}
 #comparison logic from here.