For your &guess_mode to be safe, use objects instead,

    my $parser1 = HTML::TokePaser::Simple->new(IO::File::->new($file_n
+ame));
    my $parser2 = HTML::TokePaser::Simple->new($file_handle);
    my $parser3 = HTML::TokePaser::Simple->new($long_string);
    my $parser4 = HTML::TokePaser::Simple->new(URI::->new($uri));
[download]

but now you can just as well use the named parameters style instead.

ihb

Read argumentation in its context!