#!/usr/bin/perl -w
use strict;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new(activate => 1);
$mech->get("http://www.google.com");
printf("title: %s\n", $mech->title());
$mech->document();
$mech->content();