$ PWD
PWD: command not found
$ pwd
/home/user

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

print "\$ENV{PWD} is:\t" . $ENV{PWD} . "\n";

__END__

$ perl test.pl
$ENV{PWD} is:	/home/user