>>880
遅レスだが、
use FindBin;
$path=$FindBin::Bin . '/' . __FILE__;

の方が良くないか?
モジュールとスクリプトをどうしても別ディレクトリにしたい
ってのなら別だが。