BEGIN {  use FindBin ();  use lib $FindBin::Bin; } # BEGIN