use warnings;
use strict;

use Module::Load;

if(! $ENV{SPRING_WRITEDIR}) {
  $ENV{SPRING_WRITEDIR}='E:\\test';
  system {$^X} ($^X,$0);
  exit;
}

##</code><code>##

use warnings;
use strict;

BEGIN {
    $ENV{SPRING_WRITEDIR}='E:\\test';
    $ENV{PATH}="E:\\springrts;$ENV{PATH}";
}

use Module::Load;

load("PerlUnitSync");

PerlUnitSync::Init(0,0);
my $writeDir=PerlUnitSync::GetWritableDataDirectory();
print "writeDir=$writeDir\n";