my $parser3 = HTML::TokePaser::Simple->new_from_scalar($string); 

##</code><code>##

use LWP::Simple;
my $content = get 'http://www.perlmonks.org/';
die "Can't get content" unless defined $content;
HTML::TokePaser::Simple->new(\$content);

##</code><code>##

HTML::TokePaser::Simple->new({ url => 'http://www.perlmonks.org/' });
HTML::TokePaser::Simple->new({ scalar => $content });