#!/usr/bin/perl -T
# file rmtree.pl
use File::Path;
my $dir = 'path';
rmtree($dir);
[download]

called as

qwurx [shmem] ~> mkdir -p path/to/some/file
qwurx [shmem] ~> perl -T rmtree.pl
[download]

and removes the path directory without complaint, as does

#!/usr/bin/perl -T
# file rmtree.pl
use File::Path;
my $dir = shift;
$dir =~ /^(.*)$/ && ($dir = $1);
rmtree($dir);
[download]

qwurx [shmem] ~> mkdir -p path/to/some/file
qwurx [shmem] ~> perl -T rmtree.pl path
[download]

while this barfs

#!/usr/bin/perl -T
# file rmtree.pl
use File::Path;
my $dir = shift;
# $dir =~ /^(.*)$/ && ($dir = $1);
rmtree($dir);
[download]

as it should:

qwurx [shmem] ~> mkdir -p path/to/some/file
qwurx [shmem] ~> perl -T rmtree.pl path
Insecure dependency in chdir while running with -T switch at /usr/lib/
+perl5/5.8.8/File/Path.pm line 195.
[download]

Mind to post some code?

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}