#!perl -w
use strict;
use File::Find;

my $days = 12 * 7; # twelve weeks, seven days a week.

sub DeleteOldFiles
{
    return 0 unless -M > $days;
    unlink $_ or die $!;
    return 1;
}

find( \&DeleteOldFiles, '.' );