#!/bin/sh

find "$@" -type f | perl -x $0 | more
exit

#!perl -wn 

chomp;
$age{$_}=(-M $_); 
delete $age{$_} unless defined $age{$_};

END {
    print "no plain files.\n" unless scalar %age;
    foreach (sort { $age{$a} <=> $age{$b} } keys %age) {
	printf qq(%4.2f\t%s\n), $age{$_}, $_;
    }
}

#< documentation

=pod

=head1 Name

recent - show most recent files

=head1 Synopsys

recent [files] 

recent [directory] [find options]

=head1 Description

Displays the plain files L<find(1L)> finds with their ages, in order
from newest to oldest.  One of the shortest but most useful scripts
(sans documentation) I have ever written.

=head1 Options

If you provide a single directory, I just call find and pass it your
options (in addition to "-type f") so please consult its man page for
its documented options.

=head1 See Also

L<find(1L)>

=head1 Author

Gregory A. Marton       L<http://csail.mit.edu/~gremio/>

=begin html

=head1 Download

This program is distributed under the GNU General Public License: L<http://www.gnu.org/copyleft/gpl.html>

The source: L<http://csail.mit.edu/~gremio/code/recent>

=end html

=cut
    ;
#>