#!/usr/bin/perl -w

use strict;
use HTML::TokeParser;

for my $file (@ARGV) {
  my $p = HTML::TokeParser->new($file) or next;
  while (my $token = $p->get_tag("img")) {
    print "$file:", $token->[1]{src}, "\n"
     unless defined ($token->[1]{height} && $token->[1]{width});
  }
}