use strict;
use LWP::UserAgent;
use HTTP::Cookies;
my $url = "https://camelcamelcamel.com/";
my $ua=LWP::UserAgent->new();
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0");
my $cookie = HTTP::Cookies->new(file=>$0."_cookie.txt",autosave=>1);
$ua->cookie_jar($cookie);
my $req = HTTP::Request->new(GET=>"$url");
$req->header("Content-Type"=> "application/x-www-form-urlencoded");
$req->header("Accept"=> "text/html,application/xhtml+xml,application/xml;q=0.8,*/*;q=0.7");
my $res = $ua->request($req);	
$cookie->extract_cookies($res);
$cookie->save;
$cookie->add_cookie_header($req);
$res->header("Content-Type"=> "application/xml; charset=utf-8");
my $code=$res->code;
print "Code::$code\n";