open(TEXT1,">>text1.txt") or die "$!";
open(TEXT2,"<text2.txt") or die "$!";

while(<TEXT2>)
{
   print TEXT1 $_;
}
close(TEXT2);
close(TEXT1);