opendir DIR, ".";
my ($oldest, @file) = map { -f $_ ? [$_, (stat _)[9]] : () } readdir DIR;
closedir DIR;

while(my $cur = shift @file) {
    $oldest = $cur if $oldest->[1] > $cur->[1];
}

print $oldest->[0], $/;