find({
    wanted =>\&wanted,
    postprocess => sub {
        unlink @file_list;
    },
}, $path );