use List::Util qw(reduce);
opendir DIR, ".";
print @{
    reduce { $a->[1] < $b->[1] ? $a : $b }
    map { -f $_ ? [$_, (stat _)[9]] : () }
    readdir DIR
}->[0], $/;
closedir DIR;