Select Code to Download

use strict;
use Cwd;
...
my $i = 'some_sub_directory';
my $new_path = "$pwd/$i";
$ENV{LSF_PATH} = "$new_path:$ENV{LSF_PATH}";

my @new_directories = map { "$pwd/$_" } 
    for ('some_dir', 'another_dir');
$ENV{LSF_PATH} = join ":", @new_directories, $ENV{LSF_PATH};