my @tests = sort <my/dir/*.pl>;  #update: need to sort the glob list
my $return = my $testid = 0;
while ( $return == 0 ) {
    warn "Running $tests[$testid]...\n";
    $return = system( $tests[$testid++] );
}