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