#!/usr/bin/perl

use WWW::Mechanize;

use warnings;



$im_url = 'http://www.google.co.in/imghp?hl=en&tab=wi&authuser=0';

my $mech1 = WWW::Mechanize->new(autocheck => 0, autodie => 0);

$mech1->get($im_url);

$image = 'รถแข่ง';

$mech1->form_name('f');

$mech1->field('q' => $image);

$mech1->click('btnG');

$c = $mech1->content;
if($c=~/imgurl=(.*?)\&imgrefurl/){

    $image_url = $1;

}
print $image_url."\n";