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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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.