my $pid = open2(\*OUT, \*IN, 'diskpart');