open ENV, "csh /van/home/.cshrc; env |" or die ...;
while (<ENV>) {
  chomp;
  my ($var, $val) = split /=/, $_ , 2;
  $ENV{$var} = $val;
}