add inotify example in Perl