my $ctime = (stat('perlsec.pod.txt'))[10];
my $date = localtime($ctime);

print $date,"\n";