#!/usr/bin/perl

open(DH, "ls -d results*|");
while ($dir = <DH>) {
	print "Processing dir $dir\n";
	processDir($dir);
}
sub processDir {
	($dir) = @_;

	$CMD = "make $dir/*.sav";

	print "Starting $CMD\n";
	`$CMD`;
	print "...completed $CMD\n";
	`cp utility.log ./$file.log`;
}
