#!/usr/bin/perl -w
use strict;
use warnings;
my $datei0 = "/proc/cpuinfo";

open (my $out_fh, ">>", "sammeldatei.txt") or die ("Fehler beim Oeffnen der Ausgabe in Datei: $! \n");
open (my $in_fh, "<", $datei0) or die ("Fehler beim Oeffnen der einzulesenden Datei: $! \n");

my $i = 0;
while (my $zeile = <$in_fh>){
  $i++;
  chomp ($zeile);
  print $out_fh "$i-te Zeile: $zeile \n";
}
close ($in_fh) or die ("Fehler beim Schliessen von $datei0: $! \n");
close ($out_fh) or die ("Fehler beim Schliessen von 'sammeldatei.txt': $! \n");
exit (0);