This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Jan 1st, 2014  |  syntax: None  |  size: 0.40 KB  |  views: 158  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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);
clone this paste RAW Paste Data