#!/usr/bin/perl
use strict;
use warnings;

use File::Monitor;
use File::Monitor::Object;

my $monitor = File::Monitor->new();
$monitor->watch('/home/test/work/obsrv');

my $flag=1;
while(1) {

  $monitor->scan;
  $flag=1;
  while ($flag){
    for my $change ($monitor->scan){
        print ("\n new file was created!!!!");
        $flag=0;
    }
  }
}