Select Code to Download

run ['cmd.exe', '/c', $program, $type], \$dot, ">", binary(), $out;
# or
run ['start', '/wait', '/b', $program, $type], \$dot, ">", binary(), $
+out;

sub _as_generic {
    my($self, $type, $dot, $output) = @_;
...
        return do{ local $/; <$pipe> };
    }
}