Use the -M modification time test (perlfunc), it is already in days.

sub clean_up {
    my $dir = shift;
    find sub {
        if(-M $File::Find::name > 3) {
            unlink($File::Find::name);
        }
    }, $dir;
}
[download]