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

while (<P>) {
 print $_
}