da fehlt schonmal die zeile
use FindBin '$Bin';