#!/usr/bin/perl --
use strict;
use warnings;

use WWW::Scripter;
my $w = WWW::Scripter->new;
$w->use_plugin('JavaScript');

#~ http://w3schools.com/jsref/prop_doc_cookie.asp# HTML DOM Document cookie Property
#~ http://w3schools.com/jsref/tryit.asp?filename=tryjsref_doc_cookie
#~ http://w3schools.com/jsref/tryit_view.asp?filename=tryjsref_doc_cookie

$w->get('http://w3schools.com/jsref/tryit_view.asp?filename=tryjsref_doc_cookie');
print $w->cookie_jar->as_string, "\n\n";
print $w->document->body->as_text;
__END__

Set-Cookie3: ASPSESSIONIDACRSCCCQ=FAKEASPSESSIONIDACRSCCCQ; path="/"; domain=w3schools.com; path_spec; discard; version=0



Cookies associated with this document:
ASPSESSIONIDACRSCCCQ=FAKEASPSESSIONIDACRSCCCQ