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

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

__END__

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