Select Code to Download

$notify = Win32::ChangeNotify->new($path, $subtree, 'FILE_NAME | LAST_
+WRITE' );

use Win32::Event qw[ wait_any ];

...
else {
    ## Wait timed out (only if timeout used)
}