use strict;

my $dir = "c:\\params";

opendir DIR, $dir or die $!;

foreach my $file (readdir(DIR)){
    unless(-d $file){
       print $file;
       my @stats = lstat ($file);
    
       print "\t\$stat = $stats[7]\n";
    }
    
}