Issues working with callbacks File::Monitor

[jcor]

Hi, I already posted a similar problem, but now I have more concrete ideas of what I need. I'm trying to build a "drop box" so I can be watching a directory and every time a file is created I'll work with it automatically.
The problem is that I only can return if the directory was modified or not. I'd like to get the names of the new files.
I understood by reading the File::Monitor and File::Monitor::Delta documentation that I must build a "callback" for each modification I want to watch, but I can't figure where to do that in my code...
That's what I have:

#!/usr/bin/perl
 
use strict;
use File::Monitor;
### use File::Monitor::Object;
use File::Monitor::Delta;
 
my $monitor = File::Monitor->new();
 
 # Watch a directory
    $monitor->watch('/home/joao/PERLFOLDER');
 
 
while (1){
    my @changes=$monitor->scan;
 
    for my $change (@changes) {
    warn $change->name, " has changes\n";
}
 
    sleep 1;
 
}

Can someone help me with the callbacks?

thanks,

João

[jcor]

I made it work (for now) :-).
thanks anyway!!!