Shell Programming and Scripting

 opendir ( DIR, $dir ) || die "Error in opening dir $dirname\n"; #Code to get count of Files
 $filename = (grep {/$lextension/ } readdir(DIR));
 closedir(DIR);
 print "\n Count $lextension in  = $filename \n";

foreach $x (@filename1) {
$path=$dir.$x;
$datetime_string = ctime(stat($path)->mtime);
 print "\n$x ;$datetime_string";
 }

$
$
$ cat -n filecount.pl
     1  #!perl -w
     2  use Date::Calc qw(Date_to_Time);
     3  $extension = ".txt";
     4  $dir = ".";
     5  # start = 4/1/2010; end = 4/30/2009 23:59:59
     6  $start = Date_to_Time(2010,4,1, 0,0,0);
     7  $end = Date_to_Time(2010,4,30, 23,59,59);
     8  opendir ( DIR, $dir ) or die "Error in opening dir $dir: $!";
     9  @files = grep {/$extension/} readdir(DIR);
    10  closedir(DIR) or die "Error in closing dir $dir: $!";
    11  foreach $i (@files) {
    12    $m = (stat($i))[9];
    13    print $i,"\n" if ($start <= $m and $m <= $end);
    14  }
$
$ perl filecount.pl
f0.txt
f1.txt
f2.txt
f3.txt
f4.txt
f5.txt
$
$