if($^O eq 'MSWin32') {
  require Win32::API;
  Win32::API->Import('msvcrt', 'int __cdecl _putenv (char* envstring)');
}

sub exportEnvVar {
  my $envVar=shift;
  my $envVarDef="$envVar=".($ENV{$envVar}//'');
  die "Unable to export environment variable definition \"$envVarDef\"" unless(_putenv($envVarDef) == 0);
}