use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://google.com');

$mech->eval_in_page('alert("Hello Firefox")');
my $png = $mech->content_as_png();

##</code><code>##

Can't locate object method "dive" via package "MozRepl::RemoteObject::Methods" at /usr/local/ActivePerl-5.12/site/lib/WWW/Mechanize/Firefox.pm line 220, <DATA> line 1.