#!/usr/bin/perl

# lists files by date modified in cwd and down
# Sean Brunnock

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<	@<<<<<
$file, $last_access
.

open(FIND, "find . -print |");

LOOP:
while ($filename = <FIND>) {
  chop $filename;
  next LOOP unless -f $filename;
  stat($filename);
  $date{$filename} = -M _;
}

foreach $file (sort bynumber keys %date) {
  $last_access = $date{$file};
  $file =~ s/^\.\///;
  write;
}

sub bynumber { $date{$a} <=> $date{$b}; }