#! perl -sw
use strict;
my %times;
opendir DIR, $ARGV[0] or die "Couldn't open $ARGV[0]; $!\n";

my @sorted =
	sort {
		$times{$b} <=> $times{$a}; # Was cmp D'oh! Thanks [dws]
	}
	map {
		$times{$_} = (stat $_)[9]; $_;
	}
	grep{ 
		-f $_ 
	} readdir DIR;

closedir DIR or warn "Couldn't close $ARGV[0]; $!\n";
local $" = $/;
print "@sorted\n";