# Datei a öffnen
open(my$in, '<', $infile) or
   die "Datei '$infile' konnte nicht geoeffnet werden: $!";

   # ist Datei a zu groß um ihren Inhalt zu speichern,
   # direkt Datei b öffnen
   open(my$out, '>>', $outfile) or
      die "Datei '$outfile' konnte nicht geoeffnet werden: $!";

      # den Inhalt von Datei a an Datei b anhängen
      while (<$in>)
      { print $out $_ }

   # Datei b schließen
   close($out);

# Datei a schließen
close($in);