#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use File::Basename;
use 5.010;

BEGIN {
    my $name = basename $0; 
    sub USAGE () { "Usage: $name <directory> <days>\n" }
}

die USAGE unless @ARGV == 2;
my ($dir, $days) = @ARGV;

find { no_chdir => 1,
       wanted => sub { unlink if -f -M > $days } }, $dir;

__END__