my $file_date=localtime((stat("$file"))[9]);

##</code><code>##

#!/usr/bin/perl -w
#!C:\Perl\bin\perl -w

my $directory='/devl/bin';
my $size=0;
my $file;
my $file_date=localtime((stat("$file"))[9]);

opendir(DIRHANDLE, $directory) or die "couldn't open $directory : $!\n";
my@files = grep(!/^\.\.?$/,readdir(DIRHANDLE));

foreach $file (@files)
 {
   $size=(-s "$directory/$file");
   print "$directory,$file,$size,$file_date";
   print "\n";
 }
closedir(DIRHANDLE);