in my scheduler :
-----------------

while(1){
  # predefined diractory
  opendir(DIR,"some dir") || die "$!";
  foreach my $sc (readdir(DIR)){
     next if ($sc=~/\./g);
     system($sc);
  }
  sleep 3600; # of whatever time you need
}