Select Code to Download

C:\>perl -w rauschcode.pl C:\WINNT\temp
Use of uninitialized value in concatenation (.) at rauschcode.pl line 
+10.
...
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

use File::Find;

...
    my $answer = (<STDIN>);
    unlink $filename if $answer =~m%^Y(es)?$%i;
}