sub new_from_scalar {
    my ($class, $scalar) = @_;
    return $class->new(\$scalar);
}

##</code><code>##

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);