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