System Functions Perl

use Cwd;
$dir = cwd;
print $dir;