#!/usr/bin/perl

use strict;
use WWW::Mechanize;

my $m = WWW::Mechanize->new;
$m->get( 'http://www.google.com' );
print $m->content;