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

##</code><code>##

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