http://www.jp-z.jp/perlmemo/file_FindBin.html 標準モジュールuse FindBin qw($Bin); # $Bin に 実行スクリプトのディレクトリが代入 use FindBin qw($Script); # $Script に 実行スクリプト名が代入まぁ、$0 と File::Basename 使ってもいーけど。(でもこ…