Select Code to Download

use Cwd;
use File::Basename;
...
  unshift(@INC, "$path/lib-perl");
  unshift(@INC, "$path/lib-perl/sun4-solaris-64int");
}

use Cwd qw( realpath ); 
use File::Basename;
...
my $script_dir; BEGIN { $script_dir = dirname(realpath($0)); }

use lib "$script_dir/lib", "$script_dir/lib-perl";

use File::Basename;
use Cwd;
...
  unshift(@INC, "$path/lib");
  unshift(@INC, "$path/lib-perl");
}

if (Capability::is_capable(...)) {
    ...
}