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

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

#~ http://www.w3schools.com/JS/js_cookies.asp
#~ http://www.w3schools.com/JS/tryit.asp?filename=tryjs_cookie_username
#~ http://www.w3schools.com/JS/tryit_view.asp?filename=tryjs_cookie_username

$w->set_prompt_function( sub { 'teh usernaem ' } );
$w->get('http://www.w3schools.com/JS/tryit_view.asp?filename=tryjs_cookie_username');
print $w->cookie_jar->as_string, "\n\n";
print $w->document->body->as_text;
__END__

Set-Cookie3: ASPSESSIONIDCARTDDCR=EFEIMDHAHLJNFCHKOGLODEKM; path="/"; domain=www.w3schools.com; path_spec; discard; version=0
Set-Cookie3: username=teh%20usernaem%20; path="/JS"; domain=www.w3schools.com; expires="2012-03-15 16:43:55Z"; version=0