use strict;
use warnings;

my $path = '\\\\godzilla\\c$\\temp';

for (;;) {
   my $count = () = do { opendir my $dh, $path or die; readdir($dh) };
   print("$count\n");
   sleep(2);
}

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

use Win32::ChangeNotify qw(
   FILE_NOTIFY_CHANGE_DIR_NAME
   FILE_NOTIFY_CHANGE_FILE_NAME
);

my $path = '\\\\godzilla\\c$\\temp';

for (;;) {
   my $count = () = do { opendir my $dh, $path or die; readdir($dh) };
   print("$count\n");

   my $notify = Win32::ChangeNotify->new($path, 0, FILE_NOTIFY_CHANGE_DIR_NAME|FILE_NOTIFY_CHANGE_FILE_NAME);
   $notify->wait or die;
}

##</code><code>##

2
3
4
Terminating on signal SIGINT(2)