#!/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);