#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use Data::Dumper;

my $url = 'http://www.google.com';
my $m   = WWW::Mechanize->new( autocheck => 0 );
$m->cookie_jar( HTTP::Cookies->new() );

my $response = $m->get( $url );

## Do I need to do this?
my $extract_cookie = $m->cookie_jar->extract_cookies( $response );
$m->cookie_jar->add_cookie_header( $extract_cookie );

my $request = $m->get( $url );
print Dumper \$request;