如何将多个命令发送到perl中的同一cmd实例？

Question

我的问题是我需要构建一个脚本，将命令发送到单个win32 CMD实例。 "system @cmd"或"`` @cmd"在这里无济于事，因为它们始终会创建一个新实例。 它应该在伪代码中看起来像这样：

my $consoleWindow = CreateConsole;

my $cmdargs1 = "foo";
my $cmdargs2 = "bar";

Send($cmdargs1, $consoleWindow);
sleep(1);
Send($cmdargs2, $consoleWindow); #send to the same instance

我相信，我必须创建新的cmd窗口，挂钩，然后将命令发送给它。我怎样才能做到这一点？