15.11. Fetch web page

Example 15-13. examples/applications/get_webpage.pl

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

use LWP::Simple qw(get);

my $page = get "http://web_development:8080/";
if ($page) {
    print "Site is alive\n";
} else {
    print "Site is not accessible\n";
}