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