You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

8.12. WWW::Mechanize

Example 8-10. examples/network/

use strict;
use warnings;

use WWW::Mechanize;
my $w = WWW::Mechanize->new();
    fields => {
        q => 'perl israel'
$w->follow_link( n => 5 );
print $w->title;

If you are interested in on-site trainings by the author, please contact me directly.