what did you mean by recent file ?
Some body can say files which are created b/w 1s and 10 sec is recent file.
Some body can say files which are created after the file named foo is recent file.
So according to it you can get the solution.
You can use the file::find.
Use the find2perl for generating code as
Find files which are created after FOO.
find2perl find -newer foo

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;


my $AGE_OFfoo = -M 'foo';


# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, 'find');
exit;


sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    (-M _ < $AGE_OFfoo)
    && print("$name\n");
}
[download]