~$ perl -e 'print map { "$_\n" } @INC' 
/usr/local/Cellar/perl/5.26.2/lib/perl5/site_perl/5.26.2/darwin-thread-multi-2level
/usr/local/Cellar/perl/5.26.2/lib/perl5/site_perl/5.26.2
/usr/local/Cellar/perl/5.26.2/lib/perl5/5.26.2/darwin-thread-multi-2level
/usr/local/Cellar/perl/5.26.2/lib/perl5/5.26.2
/usr/local/lib/perl5/site_perl/5.26.2

##</code><code>##

BEGIN{
		use File::Basename;
		($name,$path,$suffix) = fileparse ($0);
		print "path: $path";
		push @INC, "$path/perl";
}