Mabye Im looking at the question wrong here, but uhh... wouldnt somthing like this work?

#!/usr/local/bin/perl
print "Command: $0 @ARGV\n";
open(P, "echo hi |echo @ARGV |cat @ARGV|");

while (<P>) {
 print $_
}
[download]