Select Code to Download

use strict;
use warnings;
...
   print("$count\n");
   sleep(2);
}

2
2
...
3
4
Terminating on signal SIGINT(2)

use strict;
use warnings;
...
   my $notify = Win32::ChangeNotify->new($path, 0, FILE_NOTIFY_CHANGE_
+DIR_NAME|FILE_NOTIFY_CHANGE_FILE_NAME);
   $notify->wait or die;
}

2
3
4
Terminating on signal SIGINT(2)