I've never used File::Monitor, but the documentation indicates you need to do $monitor->scan, once to get a snapshot, and subsequently to detect changes. From that, I assume you would do the second and subsequent calls (and sleep) in an infinite loop.

This seems to work:

use strict;
use warnings;

use File::Monitor;
my $monitor = File::Monitor->new();

$monitor->watch (
  {
    name     => 'C:/whatever', # or whatever
    callback => \&print_new,
    files    => 1,
  }
);
   
while ( 1 ) {
  $monitor->scan;    
  sleep 10;                    # or however long you need
}

sub print_new {
  print join "\n", pop->files_created;
  print "\n";
}
[download]

Outstanding! I tried it, and in 2 minutes, the program was up and running after fiddling with it for hours! Thanks so much, you get the vote! :) :)
I love it when a program comes together - jdhannibal

 $monitor->watch( {
        name        => 'C:/Path',
        recurse     => 1,
        callback    => {
            files_created => sub {
                my ($name, $event, $change) = @_;
                print "@_\n callback fired \n";    #will print right a
+way, (on linux anyways) 
            }
        }
    } );
[download]

It doesn't work, maybe because I'm using windows?