#!/usr/bin/perl 
 
use warnings; 
use strict; 
use File::stat; 
 
while(1) { 
 
   my $subdirs; 
   my $totalfiles; 
   my $sumsizefiles; 
   my $dname = "C:/Reports"; 
 
   opendir(my $DIRECT, $dname) or die "Can't open directory $dname: $!"; 
 
   while ( my $file = readdir($DIRECT) ) { 
      $file = "$dname/$file"; 
      $subdirs++ and next if -d $file; 
      $totalfiles++; 
      my $sb = stat($file); 
      $sumsizefiles += $sb->size; 
      printf "%s %8.0f %s \n", $file, $sb->size, scalar localtime $sb->mtime; 
   } 
 
   closedir($DIRECT); 
 
   # Print the total files and sum of file sizes 
   printf "\n%3d File(s) %d KB\n", $totalfiles, $sumsizefiles/1024; 
   print "Not including $subdirs Sub Directories\n"; 
 
   sleep 5; 
}