#!perl
use Cwd;
$cwd = cwd();
print $cwd;