#!/usr/bin/perl

# Include the WWW::Mechanize module

use WWW::Mechanize;

# What URL shall we retrieve?
$url = "http://www.google.com";

# Create a new instance of WWW::Mechanize

# enabling autoheck checks each request to ensure it was successful,

# producing an error if not.

my $mechanize = WWW::Mechanize->new(autocheck => 1);

# Retrieve the page

$mechanize->get($url);

# Assign the page content to $page

my $page = $mechanize->content;

# Output the page print $page;