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.10. LWP::Simple

Example 8-8. examples/network/

use strict;
use warnings;

my $url = 'http://localhost/';
if (defined $ARGV[0]) {
    $url = $ARGV[0];

use LWP::Simple qw(get);

my $page = get($url);
if (defined $page) {
    print $page;
} else {
    print "Could not fetch $url\n";

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