#!perl -w
use Data::Dumper;
use MozRepl::RemoteObject;
BEGIN {
    if( ! *MozRepl::RemoteObject::Methods::dive{ CODE } ) {
        *MozRepl::RemoteObject::Methods::dive = \&MozRepl::RemoteObject::Instance::__dive;
    };
};
use WWW::Mechanize::Firefox;
$mech = WWW::Mechanize::Firefox->new();
$mech->get('http://www.google.com/');
$mech->click(btnK);
$hash = $mech->res();
print Dumper($hash);