use FindBin; use lib $FindBin::Bin; [download]
Dave.
In reply to Re: @INC from $0 by dave_the_m in thread @INC from $0 by der