use HTML::TokeParser;
use LWP::Simple;
use Data::Dumper;

use strict;

my $url = $ARGV[0];
print Dumper(head($url));
my $html = get($url) || print "failed to get $url\n";
my $parser = new HTML::TokeParser(\$html);
while (my $token = $parser->get_token()) {
    print Dumper($token);
}