in reply to Winning an Intranet competition with the aid of WWW::Mechanize

Why did you use: 
    my $text = $mech->content;

    my $tp = HTML::TokeParser->new(\$text);

    while (my $tag = $tp->get_tag('img')) {
        print "Found image: ", $tag->[1]{src}, "\n";
    }

[download]
and not simply: 
for ($mech->images) {
  print "Found image: ", $_->url_abs, "\n"
}

[download]
See, I would have won. Less typing. :)

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Cool Uses for Perl