#!/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";
    }
}