use Cwd;
my $dir = getcwd;
print "$dir\n";