use Cwd;
$dir=getcwd;
print $dir;