www::mechanize - the basics of a great perl module

[Perlbeginner1]

hello

I'm trying to learn the basics of the mechanize module and i'm still very new to programming. Does anyone know of some good places to learn the very basics, say with some examples as well?

note - i found this example on http://search.cpan.org/~petdance/WWW-Mechanize-1.66/lib/WWW/Mechanize/Examples.pod
it is nice - indeed

    use strict; 
    $|++;

    use WWW::Mechanize;
    use File::Basename; 

    my $m = WWW::Mechanize->new;

    $m->get("http://www.despair.com/indem.html");

    my @top_links = @{$m->links};

    for my $top_link_num (0..$#top_links) {
        next unless $top_links[$top_link_num][0] =~ /^http:/; 

        $m->follow_link( n=>$top_link_num ) or die "can't follow $top_
+link_num";

        print $m->uri, "\n";
        for my $image (grep m{^http://store4}, map $_->[0], @{$m->link
+s}) { 
            my $local = basename $image;
            print " $image...", $m->mirror($image, $local)->message, "
+\n"
        }

        $m->back or die "can't go back";
    }

this runs nice and gives a nice output!

Question: Does anybody have a even shorter example of mecha!?
i am looking for a short few-line-examplescript for Newbies

look forward

btw: Update: we also have For WWW::Machanize, cookbook for several more examples.