Example Test Script

use IO::File;
use Test::More  qw(no_plan);
use Test::WWW::Selenium;
use WWW::Selenium::Util qw(server_is_running);
if(server_is_running) {
    my $sel = Test::WWW::Selenium->new(
        host            => "localhost",
        port            => 4444,
        browser         => "*firefox",
        browser_url     => "http://dove",
        default_names   => 1
    );
    $sel->open("http://dove");
    $sel->wait_for_page_to_load(5000);
    $sel->title_like(qr/White Dove Company/);
}