#!/bin/ksh

export string=""
filetime()
{
    perl  -e '
          use POSIX qw(strftime);
          $fmt="%Y-%m-%d:%H:%M:%S ";
          @arr  = stat $ARGV[0];
          print strftime "$fmt", localtime($arr[9]); 
          print strftime "$fmt", localtime($arr[10]);
          print strftime "$fmt", localtime($arr[8]);
          print "$arr[7] $arr[4] $arr[5]\n";         
          
         ' $1
}
cd $1
cwd="$1"
print "files in $(pwd), mtime, ctime, atime, size, uid, gid, filetype"  > file.csv
find . -type f | \
while read filename
do
    export string=""
	filetime $filename | read mtime ctime atime size uid gid
	file $filename | read dummy filetype
    print "$filename, $mtime, $ctime, $atime, $size, $uid, $gid, $filetype"
done >> file.csv