#!/usr/bin/perl
use POSIX qw(strftime);
while($filename = <*>){
if (-d $filename){
print "Directory : ";
}
print $filename;
print ' ' x (25 - length($filename));
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
my @t = localtime $ctime;
$date = sprintf "%02u/%02u/%02u %02u:%02u:%02u", $t[4] + 1, $t[3], $t[5] % 100, $t[2], $t[1], $t[0];
print $date;
$date = strftime "%Y/%m/%d %H:%M:%S", (localtime $ctime)[0..5];
print " ", $date;
print "/n";
}