BEGIN { use FindBin qw($Bin); # get actual path of this script use lib "$Bin/../lib"; # add path/../lib/ to @INC use ModuleXY; # load module ModuleXY.pm from lib } # BEGIN