Cwd

use Cwd;
$cwd = Cwd::getcwd(); #->スクリプトのあるディレクトリを取得


組み込み関数の再インプリメントがほにゃらら・・・