#!/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;
##</code><code>##

C:\Data\Perl> mechperl.pl

Error GETing http://www.google.com: Can't connect to

www.google.com:80 (Bad hostname 'www.google.com') at

C:\Data\Perl\mechperl.pl line 15