#!/usr/bin/perl
#

use strict;
use warnings;

use LWP 5.8;
use WWW::Mechanize::Firefox;
use Net::Telnet;

my $mech = WWW::Mechanize::Firefox->new(launch => 'firefox');
my $url = 'http://www.google.com';

$mech->get($url);
print my $response->content;