use strict;
use warnings;

use File::Find qw( find );

my $search_dir = '/emc/cccadm/scripts/perl/etc-test';

{
    print "Are you sure you would like to delete all *.bak ".
          "files that exist in: $search_dir [yes/no] ";
    chomp( my $answer = lc(<STDIN>) );
    if ($answer ne 'y' && $answer ne 'yes') {
        die("You did not enter [yes]. Exiting program.\n");
    }

    exit(1) if !delete_bak_files($search_dir);
}

sub delete_bak_files {
    my ($dir) = @_;
    my $success = 1;
    find( sub {
        if (/\.bak\z/ && -f) {
            if (!unlink($_)) {
                warn("Can't delete $File::Find::name: $!\n");
                $success = 0;
            }
        }
    }, $dir);
    return $success;
}