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.

12.4. Fetching a static page

Example 12-1. examples/www/static.t

use strict;
use warnings;

use Test::More tests => 1;
use LWP::Simple qw(get);

my $home = get 'http://test_server/';
ok $home, 'There is a response';

Fetch a page and check if there is response at all.

$ perl static.t          
ok 1 - There is a response

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