Hello Perl world ! I would like to do a test . I have this code but when i launch it i have an 'unexpected' error in my Shell. Here my code :

use strict;
package MyTestingSuite;

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

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_ok("http://localhost");
    $driver->pause(2000);
    $driver->set_window_size(640, 480);
    if($driver->find_element_ok('login','name')){
      $driver->find_element('login','name')
    }
    if($driver->find_element_ok('password','name')){
      $driver->find_element('password','name')
    }
    #$twd->click_element_ok($search_target [,$finder ,$desc]);
    $elem = $driver->find_element('submit','id');
    $driver->mouse_move_to_location(element => $elem); # xoffset => x,
+ yoffset => y
    $driver->click_ok('LEFT');
    $driver->pause(2000);
    $driver->maximize_window();
    $driver->pause(2000);
    $driver->title_is('M.E');
    $driver->capture_screenshot("D:/snap-$browser.png");
    #$elem = find_element_by_class("dx-focused");
    #$driver->mouse_move_to_location(element => $elem);
    #$driver->click('LEFT');
    #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('q','name');
    $driver->find_element('btnG','name');

    $driver->quit();
  }
}

1;
[download]

Here shell message : Global symbol "$elem" requires explicit package name at MyTestingSuite.pm line 29. Global symbol "$elem" requires explicit package name at MyTestingSuite.pm line 30.

Why ? Thanks !