#!/usr/bin/perl -w

use strict;
my @files = ();
my $dir = "/home/dhaffner/src/codemonkey/test";
my $lastUpdate = 0;

LOOP: {
	opendir(DIR, $dir) or die "Died: $!";
	@files = grep { -f "$dir/$_" && (stat "$dir/$_")[9] > $lastUpdate } readdir(DIR);
	closedir(DIR);
	GoProcess("$dir/$_") foreach @files;
	$lastUpdate = time;
	sleep 30;
	redo LOOP;
}