Good catch on the unlink checking, I had completely overlooked that. In cleanup(), OP should be doing something like:

if (-M $file >= $age){
    unlink $file or die "can't delete the damned file!: $!";
}
[download]

...even if your suggested "force" param is introduced.