perl -ple "BEGIN{open $to,'>',shift @ARGV and select $to unless $ARGV[0] eq 'STDOUT'}"

# to STDOUT
perl -ple "BEGIN{open $to,'>',shift @ARGV and select $to unless $ARGV[0] eq 'STDOUT'}" STDOUT src1 src2