use strict;

use Linux::Inotify2;

$|++;

my ($file_to_watch)=@ARGV;

my $notify = Linux::Inotify2->new or die $!;

my $w = $notify->watch ($file_to_watch, IN_MODIFY, \&on_change) or die $!;

sub on_change {
  my($e)=@_;

  print $e->fullname, " changed\n"; 
}

while(1) { 
  print "polling\n";  
  my $n = $notify->poll; 
  print "handled $n events\n"; 
}