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.
Example 8-3. examples/telnet/telnet.pl
use Net::Telnet ();
my $t = Net::Telnet->new();
my @lines = $t->cmd("who");
print "Who am i: ", $t->cmd("whoami"), "\n\n";
If you are interested in on-site trainings by the author, please
contact me directly.