use Cwd;

$dir = getcwd;