http://qs1969.pair.com?node_id=497420


in reply to Finding Oldest File in a Directory

Don't forget good ol' glob.

#!/usr/bin/perl -w use strict; my ($age, $file) = (0, ''); for (<*BOT*>) { if (-M > $age) { $age = -M; $file = $_ } } print "$file\n";