#!/usr/bin/perl -wT

use strict;
use Cwd;

my $dir = cwd();

print "$dir\n";

##</code><code>##

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