#!/usr/bin/perl -w
use strict;
use Data::Dumper qw/DumperX/;
use HTML::LinkExtor;
use vars qw/$file/;

die "pass args man" unless @ARGV;

my $p = new HTML::LinkExtor(\&foy);

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

sub foy {
   my($t,%A) = @_;

   if($t eq 'img'){
        warn DumperX(\%A).$file unless($A{alt});
   }
}