use strict;
use warnings;

use File::Monitor;

my $monitor = File::Monitor->new();

$monitor->watch(
    '/tmp/otherfile.txt',
    sub {
        my ( $name, $event, $change ) = @_;
        print "file has been changed\n";
    }
);

while(1) {
    foreach my $delta ($monitor->scan) {
        print $delta->name . " has changed\n";
    }   
    sleep(10);
}