use Modern::Perl;
use File::Find::Rule;

say join "\n",
    recent_files( 'c:/data/strawberry-perl/perl/script-chrome', 5 );

sub recent_files {    # path-to-search, maximum age in days
    my $time = time - 86400 * $_[1];
    return File::Find::Rule->file()->mtime(">$time")->in( $_[0] );
}