in reply to @INC from $0

This is what the core module FindBin is designed for: 
use FindBin;
use lib $FindBin::Bin;

[download]

Dave.

In Section Seekers of Perl Wisdom