Mercurial > org-tools

view main-firefox.pl @ 10:83e16df2288a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
still experimenting
author Robert McIntyre <rlm@mit.edu>
date Tue, 25 Oct 2011 07:52:02 -0700
parents
children
line wrap: on
line source
     1 #!/usr/bin/perl



     2 



     3 use WWW::Mechanize::Firefox;



     4 my $mech = WWW::Mechanize::Firefox->new();



     5 $mech->get('http://google.com');



     6 



     7 $mech->eval_in_page('alert("Hello Firefox")');



     8 my $png = $mech->content_as_png();