use strict;
use warnings;

use LWP::Simple;
use HTML::TokeParser;

my $url = "http://www.xecu.net/fantasy/index.shtml";

my $page = get($url);

my $p = HTML::TokeParser->new(\$page) || die "problem:  $!\n";