use Cwd;
my $curpath = getcwd();