use Cwd;
print Cwd::getcwd();
これやってみれ