use FindBin qw($Bin); use lib "$Bin/../lib";