#!/usr/bin/perl

# Include the WWW::Mechanize module
use WWW::Mechanize;


$url = "http://www.google.com";

# Create a new instance of WWW::Mechanize
my $mechanize = WWW::Mechanize->new(autocheck => 1);

# Retrieve the page
$mechanize->get($url);

# Mention the keyword to be searched
my $keyword='perl';