use strict;
use warnings;
use File::Find;
use File::stat;
use Time::localtime;

my $dir = 'c:/test/test';
my @files;


find(\&wanted,$dir);

sub wanted{
  my $file = $File::Find::name;
  my $flag = -f $file ? 'f' : 'd';
  my $time = (stat($file))[9];
  #my $time = ctime(stat($file)->mtime);

  push(@files,$file.','.$time.','.$flag);
  }

foreach my $file(@files)
{
  print $file."\n";
}