Select Code to Download

use List::Util qw(reduce);
opendir DIR, ".";
print @{
...
    readdir DIR
}->[0], $/;
closedir DIR;

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

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