#!/usr/bin/perl -w
use strict;

use File::Find;

sub make_wanted {
    my ($function, $get_argument_function) = @_;
    return sub {
        $function->($get_argument_function->());
    }
}

sub delete_file_with_user_confirmation {
    my ($file_name, $user_input) = @_;
    if ($user_input =~ /yes/i) {
        unlink($file_name) 
            or die "Error: no unlink for $file_name: $!";
    }
}

sub get_user_input_for_file {
    # show full path to user
    print "Delete ", $File::Find::name, " (say 'yes' to delete)? "; 
    my $user_input = <STDIN>;
    # but remember we chdir()ed into $File::Find::dir
    return $_, $user_input;
}

my @dirs = @ARGV ? @ARGV : ("."); 


find(make_wanted(\&delete_file_with_user_confirmation,
                 \&get_user_input_for_file), 
     @dirs);