Perl script to check a dynamically-generated web site

gistfile1.txt

#!/usr/bin/perl -w

use constant SITEMAP => "http://v.box:10144/sitemap.xml";
use constant MAX_PAGES => 10;

$npages = 0;
for (qx{curl --silent @{[SITEMAP]}}) {
  m{<loc>(.*?)</loc>} or next;
  $page = $1;
  ++$npages > MAX_PAGES and last;
  print "$page\t"; # here so if aspell crashes, we know which page
  $typos = qx{curl --silent $page | aspell --mode=html --home-dir=. --personal=dict.txt list};
  $typos =~ tr{\n}{ };
  print "$typos\n"
}

Taken from drupal.stackexchange I made some mac-specific updates. Of course, you'll need aspell, curl and xmlsitemap to automatically generate the pages you wish to check