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);
}