use Cwd ();
print "Current directory: " . Cwd::cwd . "\n";