Select Code to Download

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