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

my $mech = WWW::Mechanize->new;
my $response = $mech->get ('http://your.url.here/');
print Dumper ($response->headers->{'set-cookie'});