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