use strict; use FindBin; print "I am in '$FindBin::Bin'.";