Hi, The code below works fine if run like: using PERL version 5.00503
---- #!/usr/bin/perl -w but with #!/usr/bin/perl -wT I am still getting error: Insecure dependency in glob while running with -T switch Can I turn off 'tainting' for this block { # turn off taint for this block only opendir(DR,"./"); my @filesToRemove = grep {$_ =~ /^(\w[\w.-]*)/} readdir DR; closedir DR; foreach my $fr (@filesToRemove) { print "Deleting $fr<br>\n"; unlink($fr) or die "Couldn't Delete $fr $!"; } } Is there anyway around this, I can't upgrade the version of PERL it out my hands. Thx, Dave (kora musician / audiophile / webmaster @ www.coraconnection.com / Ft. Worth, TX, USA) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>