Select Code to Download

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

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

#!/usr/bin/perl

...
}

linux-vi17:/home/martin/perl # perl mecha_test_1.pl
   www.google.com
...
command timed-out at /usr/lib/perl5/site_perl/5.12.3/MozRepl/Client.pm
+ line 186
linux-vi17:/home/martin/perl #

urls.txt 
www.google.com
...
www.bing.com
www.yahoo.com