[jconner@kwan ~]$ perl -e '
@Call[0] = "gawk";
@Call[1] = "-f";
@Call[2] = "test.gawk";
@Call[3] = "test.file";
@Call[4] = ">";
@Call[5] = "out.file";
print "system(@Call)\n";'