Select Code to Download

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

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

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

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

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

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.