use Data::Dumper;
my $dir = system('pwd');
print Dumper($dir);

##</code><code>##

/web1/users/u2369/cgi-bin 
$VAR1 = 0;