#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $browser = WWW::Mechanize->new();
$browser->get('http://www.google.com');
$browser->form_name('f');
$browser->field('q','langley public library');
$browser->submit();
print $browser->content();