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