use Cwd;
my $dir = getcwd;