#!c:\perl\bin -w

# Uses
use strict;
use HTTP::Request::Common qw(GET POST);
use HTTP::Cookies;
use LWP::UserAgent;

#Globals
my $response;

# URL
my $url = 'http://www.someurl.com';

# User Agent Object
my $ua = LWP::UserAgent->new;
$ua->proxy(['http', 'https'], 'http://127.0.0.1:8888');
$ua->agent('Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.124 Safari/537.36');

# Set cookies
my $cookie_jar = HTTP::Cookies->new( autosave=>'true', ignore_discard=>'true' );
$cookie_jar->set_cookie(0,'__ibxt','dXRrXzU0MjRiMjc4NWQ2MjYxLjA5NjQyMjA0','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'__uvst','5409ce8fb5a7a5787a65c95ca76ee4b9','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'__uvstr','d9b4984a7ad2bfee5fabe70a9c25819a','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'__utmc','1','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'__uvt','','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'_bt_id.BT-22382467-3.d389','b5822f6f5d117584.1411691130.1.1411691169.1411691130.','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'_mkto_trk','id:273-CKQ-053&token:_mch.com-1411691127927-21192','/','',80,0,0,86400,0); 
$cookie_jar->set_cookie(0,'access_token','4e92a468ae3d022d72d177f4b018333131a904ab','/','',80,0,0,86400,0); 
$cookie_jar->set_cookie(0,'jwplayer.volume','90','/','',80,0,0,86400,0); 
$cookie_jar->set_cookie(0,'ki_r','','/','',80,0,0,86400,0); 
$cookie_jar->set_cookie(0,'lastLoggedInDate','09%2F25%2F14','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'locale','en_US','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'optimizelyEndUserId','oeu1411691125629r0.670045307604596','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'optimizelySegments','%7B%22306102099%22%3A%22gc%22%2C%22306155008%22%3A%22direct%22%2C%22306161004%22%3A%22false%22%7D','/','',80,0,0,86400,0);
$cookie_jar->set_cookie(0,'PHPSESSID','dtdfb3b4v8vm16uml1ro7lf38ktu6ote','/','',80,0,0,86400,0);

$ua->cookie_jar($cookie_jar);

# Request
my $request = GET $url;
$request->referer('https://www.xxxx.com/blah/blah/');
#$cookie_jar->add_cookie_header( $request );
$response = $ua->request($request);

open OUTPUT, '>c:\output.txt' or die "Couldn't open file $!";
    
if ($response->is_success) {
    print $response->decoded_content;
	print OUTPUT $response->decoded_content;
}
else {
	print STDERR $response->status_line, "\n";
}

close OUTPUT;