#!/usr/bin/perl

use LWP::Simple;
my $page;
unless (defined ($page = get 'http://www.google.com')) {
  die "Can't retrieve page";
}