die "Cannot continue :$!" unless(defined(my $kid = fork()));
unless ($kid){
  system("my scheduler");
  exit;
}

##</code><code>##


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
}