introduce FindBin; remove unused variable $Id