Checks the links of any URL passed to it as an argument.

check_links.pl

#!/usr/bin/env perl

# Author: Dan Beam <[email protected]>
# Requires: Test::WWW::Mechanize (libtest-www-mechanize-perl in apt-get, Test::WWW::Mechanize in CPAN)
# Usage: ./check_links.pl 'http://google.com' 'http://yahoo.com'

use strict;
use warnings;
use Test::More tests => 2 * scalar(@ARGV);
use Test::WWW::Mechanize;

my $mech = Test::WWW::Mechanize->new();
my $urls = " - " . join("\n - ", @ARGV);
print "Checking " . scalar(@ARGV) . " URLs:\n" . $urls . "\n";

map { $mech->get_ok($_); $mech->page_links_ok(); } @ARGV;