if ( ! unlink $file ) { warn "Can't unlink '$file': $!\n"; push @unlink_failures, $file; }