$ctime_cl=scalar localtime ((stat $File::Find::name)[9]);
        my @split_cttime_cl = split (/ /,$ctime_cl);
        my @split_time = split (/:/, $split_cttime_cl[3]);
        $ctime_cl = "$split_cttime_cl[0]"." "."$split_cttime_cl[1]"."
 "."$split_cttime_cl[2]"." "."$split_time[0]".":"."$split_time[0]"."
 "."$split_cttime_cl[4]";