@unlink_failures = grep { ! unlink } @files_to_unlink;
warn "unlink failed for '$_'\n" for @unlink_failures;