#!/usr/bin/perl 

use strict;
use warnings;

my @cpuinfo = `cat /proc/cpuinfo`;

open (my $writefile, '>',"cpuinfo.txt") or die $!;
foreach my $selected_cpuinfo (@cpuinfo) {
  chomp($selected_cpuinfo);
  if ($selected_cpuinfo =~ m/^processor/ || $selected_cpuinfo =~ m/^cpu MHz/ ) {
    print "CPUINFO: $selected_cpuinfo\n";
    print $writefile "$selected_cpuinfo\n";
  }
}
close($writefile);