The documentation says that alternatively to

$p = HTML::TokeParser->new( $filename, %opt );
[download]

you can use

$p = HTML::TokeParser->new( \$document, %opt );
[download]

Which is what I'd use then.