[ILUG] Quick perl question

[Kevin Philp]

Are there any perl guru's who can tell me why this short clip, which is 
largely from the reference docs, throws the following error on the line 
marked ===Not OK. If I take that line out it runs OK and prints the 
references from the website, so why can't I get the text?

Can't call method "get_trimmed_text" on unblessed reference 

my $browser = LWP::UserAgent->new;
my $url = "http://www.cybercolloids.net/index.php";
my $response = $browser->get($url);
	die "Error at $url\n ", $response->status_line, "\n Aborting" unless 
$response->is_success;

my $stream = HTML::TokeParser->new(\$response->content) || die "Cannot open: 
$!";

while (my $token = $stream->get_tag("a")) {
            my $link = $token->[1]{href} || "-"; # ===OK
            my $text = $token->get_trimmed_text("/a") || "-"; #===Not OK
             print "$link\t\n";
         }