#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
use LWP::Authen::Wsse;

my $mech = WWW::Mechanize->new;
$mech->credentials('username', 'password');
# some debug stuff.
$mech->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
$mech->add_handler("request_send",  sub { shift->dump; return });
$mech->add_handler("response_done", sub { shift->dump; return });

$mech->get('http://localhost/');