use strict;
use diagnostics;
use warnings 'all';

use File::Find;
use File::stat;

use Time::localtime;


system("cls");
for (@ARGV){
  find sub {
	     -d and print "\n$File::Find::name ================\n";	
	     return unless -f;
             my $sb = stat($_);
             my $mt = localtime $sb->mtime;
             my $ct = localtime $sb->ctime;
             printf "  %s, %s bytes, Mod:%02d/%02d/%02d Creat:%02d/%02d/%02d\n",
         	$_, $sb->size,
                $mt->mon()+1,$mt->mday(),$mt->year %100, 
                $ct->mon()+1,$ct->mday(),$ct->year %100 
                ;
             
	   }
     ,$_ ;
}