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

open (FILE, ">>sammeldatei.txt") or die ("Fehler beim Oeffnen der Datei: $! \n");
$i = 0;
while ($datei0 = <FILE>){
$i++;
chomp ($datei0);
print "$i-te Zeile: $datei0 \n";
}
close (FILE) or die ("Fehler beim Schliessen von 'sammeldatei.txt': $! \n");
exit (0);