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