8.10. LWP::Simple

Example 8-8. examples/network/lwp_simple.pl

#!/usr/bin/perl
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";
}