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

##</code><code>##

AMRO	$stat = 
DATE CATEGORY	$stat = 
NEON	$stat = 
PARAMIN.pm	$stat = 1137
SMSL	$stat = 
SMSREPSMEMIDCTOTS10.TXT	$stat = 
SMSREPSMEMIDCTOTS11.TXT	$stat = 
SMSREPSMEMIDCTOTS12.TXT	$stat = 
SMSREPSMEMIDCTOTS13.TXT	$stat = 
SMSREPSMEMIDCTOTS14.TXT	$stat = 
tp1.pl	$stat = 247