#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use WWW::Mechanize qw();
use Data::Dumper qw(Dumper);

my $url = 'http://www.google.com';
my $m   = WWW::Mechanize->new; # do not disable autocheck, it's useful

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

my $cookie_jar = $m->cookie_jar; # returns a HTTP::Cookies object
$cookie_jar->scan(sub { print Dumper \@_ });

# cookies are sent with subsequent requests
$m->get($url);