#!/usr/bin/perl -w

  use strict;

  my $dir = "/home/dhaffner/src/codemonkey/test";
  opendir (DIR,$dir) or die "That's all folks!";
  {
       do {
      my @files = grep { -f "$dir/$_" } readdir(DIR);
      foreach my $file (@files) {
          GoProcess ($file);
      }
      } while (sleep(30))
  }
  closedir (DIR);

  sub GoProcess {
      print "I can process $_[0] for you now.\n";
  }