I've used this in my own projects.

use FindBin;
use lib $FindBin::Bin;
[download]

A side-note: when running perl as root, the '.' entry is automatically removed from the initial @INC value. Likewise, if your scripts are to be run from root authority, do try to validate the @INC so you're sure you're not drawing in some unexpected version of subApp1.pl. What checking you do will depend on your circumstances.

--
[ e d @ h a l l e y . c c ]