open FILE, "$B_file" or die "Unable to open \'$B_file\': $!";
open(OUT,">$A_file") or die "Unable to open \'$A_file\':
while (<FILE>) {
  print OUT "$_";
}