view main-firefox.pl @ 10:83e16df2288a

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
3 use WWW::Mechanize::Firefox;
4 my $mech = WWW::Mechanize::Firefox->new();
5 $mech->get('http://google.com');
7 $mech->eval_in_page('alert("Hello Firefox")');
8 my $png = $mech->content_as_png();