use Cwd;
my $path = cwd;