PHP Code:
#!/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;