#!/usr/bin/perl -w


use CGI::Carp "fatalsToBrowser";
use HTML::LinkExtor;

$filename = "index.html";

$parser = HTML::LinkExtor->new(undef, $base_url);
$parser->parse_file($filename);
@links = $parser->links;
foreach $linkarray (@links) {
   my @element = @$linkarray;
   my $elt_type = shift @element;                  # element type

   # possibly test whether this is an element we're interested in
   while (@element) {
       # extract the next attribute and its value
       my ($attr_name, $attr_value) = splice(@element, 0, 2);
       # ... do something with them ...
   }
}
 print "Content-Type: text/html\n\n";
 print $attr_name;
 print $attr_value;