I would to do something like that for example, with 2 functions also. Do you think it's possible and how ? Thanks

 use Selenium::Remote::Driver;
use Test::More tests=>4;

sub run_tests{

  my $browser = shift;
  my $driver = Selenium::Remote::Driver->new( browser_name => $browser
+);
  $driver->get("http://www.google.com");
  $driver->find_element('q','name')->send_keys("Hello WebDriver!");

  ok($driver->get_title =~ /Google/,"title matches google");
  is($driver->get_title,'Google',"Title is google");
  ok($driver->get_title eq 'Google','Title equals google');
  like($driver->get_title,qr/Google/,"Title matches google");

  $driver->quit();
}

run_tests ($_) for sort ( 'chrome', 'internet explorer', 'phantomJS', 
+'firefox' );

sub run_testing{

  my $browser = shift;
  my $driver = Selenium::Remote::Driver->new( browser_name => $browser
+);
  $driver->get("http://www.google.com");
  $driver->pause(2000);
  $driver->set_window_size(640, 480);
  $driver->find_element('login','name')
  $driver->find_element('password','name')


  $driver->quit();
}

run_testing ($_) for sort ( 'chrome', 'internet explorer', 'phantomJS'
+, 'firefox' );
[download]

Hmm, OK I think I see what you're trying to do. Try something like this, from Test::Class:

use strict;
package MyTestingSuite;

use parent 'Test::Class';
use Selenium::Remote::Driver;
use Test::More;

sub startup : Test( startup => no_plan ) {
  my $self = shift;
  $self->{browsers} = [('chrome', 'internet explorer', 'phantomJS', 'f
+irefox')];
}

sub title_test : Tests {
  my $self = shift;

  foreach my $browser (@{$self->{browsers}}) {
    my $driver = Selenium::Remote::Driver->new( browser_name => $brows
+er);
    $driver->get("http://www.google.com");
    $driver->find_element('q','name')->send_keys("Hello WebDriver!");

    ok($driver->get_title =~ /Google/,"title matches google");
    is($driver->get_title,'Google',"Title is google");
    ok($driver->get_title eq 'Google','Title equals google');
    like($driver->get_title,qr/Google/,"Title matches google");

    $driver->quit();
  }
}

sub element_test : Tests {
  my $self = shift;

  foreach my $browser (@{$self->{browsers}}) {
    my $driver = Selenium::Remote::Driver->new( browser_name => $brows
+er);
    $driver->get("http://www.google.com");
    $driver->pause(2000);
    $driver->set_window_size(640, 480);
    $driver->find_element('login','name')
    $driver->find_element('password','name')

    $driver->quit();
  }
}

1;
[download]

The relevant .t file might look like this:

use strict;
use warnings;

use Test::Class::Load 'MyTestingSuite';
[download]

Note: Sample code untested

Visually interesting but it doesn't work for me

It's ok sorry. I just forget something. Perfect Thanks ! Can i ask u another and last question ?

What is the problem you're facing? Do you get errors? Do the tests not run? Do you get unexpected results?

i have anything right now with my shell . Using @SImonPratt code. It doesn't run and when i launch my file , output in Shell is simply the path of my directory. Nothing happens.