{
  my @lines = `/bin/ksh -c ". oraenv -d; set"`;
  for (@lines) {
    next unless /=/;
    my($k,$v) = split /=/, $_, 2;
    $ENV{$k} = $v;
  }
}