Es wuerde mich sehr wundern, wenn du das s/// im BEGIN-Block brauchst. Ich benutze jedenfalls $FindBin::Bin und $FindBin::RealBin immer so wie sie kommen.