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