C:\>perl -w rauschcode.pl C:\WINNT\temp
Use of uninitialized value in concatenation (.) at rauschcode.pl line 10.
are you sure that you want to delete    'Y/y(es)'  y
Use of uninitialized value in unlink at rauschcode.pl line 13, <STDIN> line 1.
Use of uninitialized value in concatenation (.) at rauschcode.pl line 13, <STDIN> line 1.
Can't delete : Bad file descriptor

##</code><code>##

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;
}