Select Code to Download

open my $inotify, '-|',
    do { no warnings 'qw';
...
while (<$inotify>) {
    my ($path, $event, $file) = split;
    ...