#!/usr/bin/perl -w

use strict;

package GetIMG;



@GetIMG::ISA = qw(HTML::Parser);

require HTML::Parser;

use strict;

die ' No filename ' unless $ARGV[0];

my $parser = new GetIMG;


$parser->parse_file($ARGV[0]);


sub start()
{
   my($self,$tag,$attr,$attrseq,$orig) = @_;
   if ( $tag eq 'img')
     {
       for (keys %{$attr} )
          {
            print "$_ = > $attr->{$_}\n";
          }
     }
}