Help for this page
perl -ne 'BEGIN{open FH,">>", shift @ARGV or die $!} print FH $_;' A.t +xt B.txt
perl -ne "BEGIN{open FH,'>>', shift @ARGV or die $!} print FH $_;" A.t +xt B.txt