perl -e 'use Filewatch; my $fw=Filewatch->new(); $fw->fw_add({file=>"/home/glaess/test",}); while (sleep 1) { my @rc = $fw->fw_check (); foreach my $r (@rc) { print "$r\n"; } }'