スクリプトのパス情報などの取得 (module)FindBin

標準モジュール

use FindBin qw($Bin);        # $Bin に 実行スクリプトのディレクトリが代入
use FindBin qw($Script);     # $Script に 実行スクリプト名が代入

まぁ、$0 と File::Basename 使ってもいーけど。(でもこっちは相対パスになる)

use FindBin qw($RealBin);
use FindBin qw($RealScript);
で、実行スクリプトがリンクの場合に、リンク元のディレクトリ・ファイル名を取得