use strict;
use POSIX qw (strftime);

my $path = "c:\\";

opendir(DIR, $path) or die "can't opendir $path: $!";
my @files = readdir(DIR);
closedir(DIR);

foreach my $file (@files)
{
    my ($mtime, $ctime) = (stat("$path$file"))[9,10];
    print "$path$file was created at ", strftime ("%c", localtime($cti
+me)), " and last modified at ", strftime ("%c", localtime($mtime)), "
+\n";
}
[download]