open(my $Vx, '|-', 'windsh') or die "windsh; $!";
print $Vx "Some command\n";
close $Vx;