use FindBin qw/ $Bin /;
use lib "$Bin";
| etc