Select Code to Download

 ## my $w = $notify->watch ($file_to_watch, IN_MODIFY, \&on_change) or
+ die $!;
 my    $w = $notify->watch ($file_to_watch, IN_MODIFY | IN_MOVE_SELF, 
+\&on_change2) or die $!;
...
  print "\n";
}