Mercurial > org-tools

view main-firefox.pl @ 11:24ff8a9c76c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
all day for three lines
author Robert McIntyre <rlm@mit.edu>
date Tue, 25 Oct 2011 08:00:48 -0700
parents 83e16df2288a
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();