my @files = glob( 'run_me/*' );
while (  my $file = shift @files ) {

  my $cmd = "perl -Ilib $file >> log";
  print STDERR "$cmd\n";
  system( $cmd ) == 0 or die "something wrong: $?\n";

}