Here's a "something close" for cases where you need multiple elements in your path.

BEGIN {
    my $dir;
    my $needed_path = 0;
    my @need =  (
        "/usr/local/lib",
        "/usr/platform/SUNW,Ultra-80/lib",
        "/usr/lib"
     );
     my $ld_path = $ENV{LD_LIBRARY_PATH};

     if(  ! $ld_path  ) {
           $ENV{LD_LIBRARY_PATH} = join ":", @need;
           exec 'env', $^X, $0, @ARGV;
     }

    foreach $dir  (@need) {
        if (  $ld_path !~ m/(^|:)\Q$dir\E(:|$)/  ) {
            $ENV{LD_LIBRARY_PATH} .= ':' . $dir;
                $needed_path = 1;
        }
    }

    if($needed_path) {
        exec 'env', $^X, $0, @ARGV;
    }

}
[download]