open A, '>> A.txt'
  or die $!;

open B, '< B.txt'
  or die $!;

print A <B>;