File::Basenameモジュールのdirname()関数を使います。 use File::Basename; # スクリプトファイルがあるディレクトリへの相対パス dirname(__FILE__); # 絶対パスを得るならFile::Spec->rel2abs()を使う File::Spec->rel2abs( dirname(__FILE__) ); スクリ…