my $stream = HTML::TokeParser->new(\$source)
  || die "Couldn't read HTML file $source";