or download this
my $parser1 = HTML::TokePaser::Simple->new($file); works
my $parser2 = HTML::TokePaser::Simple->new($file_handle);
my $parser3 = HTML::TokePaser::Simple->new_from_scalar($string);
my $parser4 = HTML::TokePaser::Simple->new_from_fqdn($fqdn);