##

#!/usr/bin/perl 

use Text::Soundex;
use LWP;
use WWW::Mechanize;

my $mechObject = WWW::Mechanize->new();
$mechObject -> get($url);
$mechObject->field($queryString);
$mechObject->click();