#!/usr/bin/perl
#
# eg4: grab a webpage using LWP::Simple
#
use strict;
use warnings;
use LWP::Simple;

my $url = shift @ARGV || "http://www.doc.ic.ac.uk/~dcw/perl2014/";
my $contents = get($url) || die "oops, no webpage $url\n";
print $contents;
