#! /usr/bin/perl

use strict;
use warnings;
use WWW::Selenium;

my $sel = WWW::Selenium->new( host => "localhost", 
                                    port => 4444, 
                                    browser => "*chrome", 
                                    browser_url => "http://www.google.com" );

$sel->start();
$sel->open("http://www.google.com");
$sel->click('<button class="gbqfba" name="btnK" aria-label="Google Search" id="gbqfba"><span id="gbqfsa">Google Search</span></button>');
$sel->wait_for_page_to_load("30000");