use File::Monitor;
use File::Monitor::Object;
my $wFileMonitor = File::Monitor->new();
$wFileMonitor->watch($wFile);
#-- First scan does nothing
$wFileMonitor->scan;

#-- Let's sleep so changes can happen
sleep 10

#-- Subsequent calls will report changes
my @changes = $wFileMonitor->scan;

foreach my $object (@changes) {
  my $modified = $object->mtime;
}