while (<$*ARGS>) { print $*OUT, $_; }