#!perl -w
use strict;
use Cwd;
print cwd;