SHARE
TWEET

Untitled

a guest Jan 1st, 2014 158 Never
  1. #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  use utf8;
  6.  use WWW::Mechanize;
  7.  use WWW::Mechanize::Link;
  8.  use LWP::UserAgent;
  9.  use Data::Dumper;
  10.  
  11.  BEGIN { $| = 1 }
  12.  $ENV{'HTTP_PROXY'} = 'http://66.35.68.145:7808';
  13.  $ENV{'HTTPS_PROXY'} = 'http://66.35.68.145:7808';
  14.  
  15. my $mech = WWW::Mechanize->new();
  16. my $response = $mech->get("http://whatismyipaddress.com/");
  17. print Dumper($response->decoded_content);
RAW Paste Data
Top