#!/usr/bin/perl

 use strict;
 use warnings;
 use utf8;
 use WWW::Mechanize;
 use WWW::Mechanize::Link;
 use LWP::UserAgent;
 use Data::Dumper;

 BEGIN { $| = 1 }
 $ENV{'HTTP_PROXY'} = 'http://66.35.68.145:7808';
 $ENV{'HTTPS_PROXY'} = 'http://66.35.68.145:7808';

my $mech = WWW::Mechanize->new();
my $response = $mech->get("http://whatismyipaddress.com/");
print Dumper($response->decoded_content);