Re: Finding oldest file in directory

[pg]

glob is actually implemented base on File::Glob since 5.6.0, so turn on GLOB_NOSORT might help a bit,as you want your own sort, not its sort any way.

use File::Glob ':glob';
  @list = bsd_glob('*.*', GLOB_NOSORT);
print join(',',@list);