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

##</code><code>##

  # myenv
  for my $var (keys %ENV) {
    print $var, "=", $ENV{$var}, "\0";
  }