printf($file[$position], " ", $fileSize[$position], " ", $fileAge[$position], "\n") unless -d @file;

 
#use warnings;
#use strict; 
use File::stat;
my $seconds = 5;
$sb = stat(@files); 
# MNCS Report list directory
$dname = "C:\\Reports\\"; 
# Open and read directory, pass directory/file location to DIR or issue error message
opendir(DIR, $dname) or die "Can't open directory $dname: $!";
# TRANSFORM TO LOWERCASE
foreach $files(@files) 
{
push(@files, "\L$files");
} 
#Sort, Create an array of all files ending with .txt or .pdf in the Current Directory
my @files = sort(grep(/txt|pdf$/, readdir(DIR)))or die "Hard fail, but say why (\$!): $!\n";
closedir(DIR);
while (DIR)
{
# begin report of MNCS directory
foreach $files (@files) 
{
printf "%s, %s\n", @files[position], $sb->size, scalar localtime $sb->mtime;
$sumsizefiles += $sb->size; 
++$totalfiles;
++$position;
}
# Print the total files and sum of file sizes
$sumsizefiles = $sumsizefiles / 1024;
printf("\n", $totalfiles, "File(s) ", $sumsizefiles, " Kb\n");
$position = 0;
$totalfiles = 0;
$sumsizefiles = 0;
# Sleep for 5 seconds 
sleep($seconds);
}

foreach $files(@files)

foreach my $files(@files)

my $sb = stat(@files);

 
use warnings;
use strict; 
use File::stat;
my $position = 0;
my $seconds = 5;
my @files = qw/0/;
my $files;
my $dname;
my $sb; 
my ($size, $mtime);
my $totalfiles = 0;
my $sumsizefiles = 0;
my $DIRECT; 
# MNCS Report list directory
$dname = "C:\\Reports\\"; 
# Open and read directory, pass directory/file location to DIR or issue error message
opendir($DIRECT, $dname) or die "Can't open directory $dname: $!";
#Sort, Create an array of all files ending with .txt or .pdf in the Current Directory
@files = readdir($DIRECT) or die "Hard fail, but say why (\$!): $!\n";
closedir($DIRECT);
while (1)
{
# begin report of MNCS directory
foreach my $file (@files) 
{
my $staticfileinfo = $files[$position];
$sb = stat($staticfileinfo);
printf "%s %8.0f %s \n", $staticfileinfo, $sb->size, scalar localtime $sb->mtime;
$sumsizefiles += $sb->size; 
++$totalfiles;
++$position;
}
# Print the total files and sum of file sizes
$sumsizefiles = $sumsizefiles / 1024;
printf "\n%3.0d %s %8.0f %s\n", $totalfiles, "File(s) ", $sumsizefiles, " Kb\n";
$position = 0;
$totalfiles = 0;
$sumsizefiles = 0;
# Sleep for 5 seconds 
sleep($seconds);
 
 
}

#!/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; 
}