perl -ne 'BEGIN{open FH,">>", shift @ARGV or die $!} print FH $_;' A.txt B.txt

##</code><code>##

perl -ne "BEGIN{open FH,'>>', shift @ARGV or die $!} print FH $_;" A.txt B.txt