my $datei0 = "/proc/cpuinfo";
open (my $out_fh, ">", "datei.txt") or die ("Error : $! \n");
open (my $in_fh, "<", $datei0) or die ("Error : $! \n");
chomp ($zeile);
while (my $zeile = <$in_fh>) {
  if ($zeile =~ m/^processor/ || $zeile =~ m/^cpu MHz/) {  
    print $out_fh "$zeile \n";
  }
}
close ($in_fh) or die ("Error .....$datei0: $! \n");
close ($out_fh) or die ("Error .....von 'datei.txt': $! \n");
exit (0);