use strict;
use HTML::TokeParser;

my $p = HTML::TokeParser->new(shift);
my $token = $p->get_tag("a");

[jeffa@trinity perl]$ ./bar.pl asdfsdaf
Can't call method "get_tag" on an undefined value at ./bar.pl line 7.