use Test::Harness (runtests, execute_tests) ;
@test_files = qw (gmail_selenium.pl);
$total = execute_tests(tests => \@test_files);
print $total->{max};