use HTML::TokeParser

There isn't a semicolon at the end of this line. I don't know whether that's causing your problem or not.

Dave.