##
#!/usr/bin/perl
use strict;
use WWW::Scripter;
my $m = WWW::Scripter->new();
$m->use_plugin('JavaScript');
$m->agent_alias('Windows IE 6');
my $zip1 = '91502';
my $keyword = 'restaurants';
my $url = 'http://www.yelp.com';
$m->get($url);
$m->forms;
$m->form_number(1);
$m->field('find_desc',$keyword);
$m->field('find_loc', $zip1);
$m->submit();
$m->select('search_rpp', '40');
$m->click();