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.13. WWW::GMail

Example 8-11. examples/network/gmail.pl

#!/usr/bin/perl
use strict;
use warnings;

use WWW::GMail;

my $w = WWW::GMail->new(
    username => "USERNAME",
    password => "PASSWORD",
);

my $ret = $w->login();
if ($ret == -1) {
    die "password incorrect\n";
} elsif ($ret == 0) {
    die "unable to login $w->{error}\n";
}

my @messages = $w->get_message_list('inbox');
foreach my $msg (@messages) {
    print "Subject: $msg->[6]\n";
}

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