t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use lib 'lib';
   6 use Test::Harness::Selenium;
   7
   8 my $s = Test::Harness::Selenium->new({
   9     host => 'localhost',
  10     port => 4444,
  11     browser_url => 'http://www.google.com',
  12     browser => shift,
  13 });
  14 $s->run_tests_for(shift);