Select Code to Download

BEGIN {
    my $base_module_dir = (-d '/home/jeffer36/perl' ? '/home/jeffer36/
+perl' : ( getpwuid($>) )[7] . '/perl/');
    unshift @INC, map { $base_module_dir . $_ } @INC;