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

my $doc_filename = "/home/user1/doc.txt";

open(DOC_FILE, ">$content_filename") || die "$!";

my $mech = WWW::Mechanize::Firefox->new(activate => 1);
$mech->get("<your_URL_here>");
printf("title: %s\n", $mech->title());


printf(DOC_FILE "%s\n", $mech->document());