### Delete pdf files older than X days from given directory tree ###

use strict;
use warnings;
use File::Find;

my @directories;
$directories[0] = $ARGV[0];
my $days_old = $ARGV[1];

finddepth(\&wanted, @directories);


# File::Find coderef
# Find all PDFs older than given # of days & delete
sub wanted {
	
	 # Turn forward slashes into backslashes to make real Win32 paths
	 my $file = $File::Find::name;
	 $file =~ s|/|\\|g;
	 
	 if ( ($file =~ m|\.pdf$|) && (int(-M $file) > $days_old) ) {
	 
	 	print "Found: $file, deleted\n";
		unlink($file) || print "Unable to delete $file!\n";
	 }
	 
	 
}