I tried it like this:
#!/usr/bin/perl
use strict;
use warnings;
use File::Monitor;
my @Files = qw(1.doc 2.doc 3.xls);
my $wFileMonitor = File::Monitor->new();
foreach my $wFile(@Files){
$wFileMonitor->watch($wFile);
}
$wFileMonitor->scan;
my @changes = $wFileMonitor->scan;
foreach my $change(@changes) {
if ($change->is_mtime) {
my $mtime = $change->is_mtine;
my $old_mtime = $change->old_mtime;
my $new_mtime = $change->new_mtime;
print "$mtime has changed mtime from $old_mtime" .
"to $new_mtime\n";
}
}