my $ctime = (stat($file))[10];
my $date = localtime($ctime);

print $date,"\n";