use Cwd;
my $dir = cwd;