#! /usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my $argc = scalar @ARGV;
if ($argc != 1) {
   print "To get the contents of a web page use: $0 pageURL\n";
   exit 0;
}

my $url = $ARGV[0];
my $content = get $url;
print "Content of $url\n";
print $content;