#!C:/Perl/bin/perl.exe

use WWW::Selenium;

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

$sel->open("/");

$sel->select_window("CPAN - Google Search");

$sel->pause("3000");

$sel->type("q", "www::selenium");

$sel->key_press("q","\\13");

$sel->pause("300");

$sel->stop;