use Cwd;
$cwd = cwd();
print "My directory is $cwd\n";