check.pl

#!perl
use strict;
use warnings;
use Web::Scraper;
use URI;
use YAML;
my $found = sub { 1 };

$| = 1;

my $scraper = scraper {
    process '.vevent' => 'hCalendar' => $found;
    process '.vcard' => 'hCard' => $found;
    process '.hentry' => 'hAtom' => $found;
    process '.hrecipe' => 'hRecipe' => $found;
    process '.hresume' => 'hResume' => $found;
    process '.hnews' => 'hNews' => $found;
    process '.xfolkentry' => 'xFolk' => $found;
    process '.hmedia' => 'hMedia' => $found;
    process '.haudio' => 'hAudio' => $found;
    process '.hproduct' => 'hProduct' => $found;
};

my $file = shift;
open my $fh, '<', $file or die;
my $i = 0;
while (my $line = <$fh>) {
    chomp $line;
    warn sprintf("%08d:%s\n", ++$i, $line);
    my $result = eval {$scraper->scrape(URI->new($line))} or next;
    print join("\t", $line, $_), "\n" for keys %$result;
}