Select Code to Download

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

my @output = qx(windsh < scriptfile);