Select Code to Download

use warnings;
use strict;
...
  system {$^X} ($^X,$0);
  exit;
}

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