use strict;
use warnings;
use File::Find;

deleteBak();

sub deleteBak {
	my $searchdir = '/emc/cccadm/scripts/perl/etc-test';
	my ($answer, $file, @bak);
	print "Are you sure you would like to delete all *.bak files that exist in: $searchdir [yes/no] ";
	chomp($answer = <STDIN>);
	if ($answer eq 'yes'){
	        my @bak;
		find(sub { 
			@bak = ($File::Find::name) if /\.bak\z/ or print ("No Files\n");
			foreach $file (@bak) {
				system("rm -f $file");
				print "Deleting $file\n";
			}
		}, $searchdir);
	}	else {
		print "You did not enter [yes]. Exiting program.\n";
		exit;
	}
}