#!/usr/bin/perl
    
    
    use WWW::Mechanize::Firefox;
    my $mech = WWW::Mechanize::Firefox->new();
    
    open(INPUT, "urls.txt") or die "Can't open file: $!";
    
    while (<INPUT>) {
      chomp;
      $mech->get($_);
      my $png = $mech->content_as_png();
    }
    close(INPUT);
    exit;   
##</code><code>##


    Filename: urls.txt
    ------------------
    www.google.com
    www.cnn.com
    www.msnbc.com
    news.bbc.co.uk
    www.bing.com
    www.yahoo.com