Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wT

...
my $dir = cwd();

print "$dir\n";

Select or download this

Insecure $ENV{PATH} while running with -T switch at /usr/lib/perl5/5.0
+0503/Cwd.pm line 82.