Select Code to Download

use FindBin;
use File::Spec::Functions qw/updir catdir/;
...
use File::Spec::Functions qw/splitdir catdir/;
use lib do { my @p = splitdir $FindBin::RealBin;
    catdir @p[0 .. $#p-1], 'lib' };