perl -e "print qq{<<$_>>\n} for @ARGV" file=test\test\test __OUTPUT__ <>