#!/usr/bin/perl

use IO::Dir;
tie %dir, 'IO::Dir', ".";

# assume ctime is close enough for creation time
foreach (sort { $dir{$b}->ctime <=> $dir{$a}->ctime } keys %dir ) {
    print $_, " " , $dir{$_}->ctime,"\n";
}