#!/usr/bin/perl

use LWP::Simple;
use HTML::LinkExtor;

my @failed;
$p = HTML::LinkExtor->new(\&callback);
sub callback {
  ($tag, %links) = @_;
  $url = @{[%links]}[1];
  if($url =~ /^(http|ftp)/) {
    print "* $url";
    $res = head($url);
    if($res) {
      print "\t\tOK.\n";
    } else {
      print "\t\tFAILED!\n";
      push(@failed, $url);
    }
  }
}

for $url (@ARGV) {
  $p->parse_file($url);
}

print <<END;

Broken Links:
=============
END
for $url (@failed) {
  print " * $url\n";
}