use File::Find;

find(\&wanted, (shift || '.'));
sub wanted 
{
	my $filename = $File::Find::name;
	print "Delete $filename? (Y/n)";
	my $answer = (<STDIN>);
	unlink $filename if $answer =~m%^Y(es)?$%i;
}