#!perl -w
use strict;
use HTML::LinkExtor;
use LWP::Simple;

my $baseUrl = $ARGV[0] || die "Usage: $0 url\n"; 
my $parser = HTML::LinkExtor->new(undef, $baseUrl);
$parser->parse( get($baseUrl))->eof;
foreach ( $parser->links){
  my ($eltType, @elements) = @$_;
  while (@element){
    my ($attrName, $attrValue) = splice(@element, 0, 2);
    print "$eltType: $attrName, $attrValue\n";
  } # while
} # foreach