#!/usr/bin/perl
#collects system data to help diagnose errors
use Carp;
use POSIX;

open(my $CPUI, '<', '/proc/cpuinfo') or
	croak "Can't open /proc/cpuinfo for reading: $!\n";
while(my $line = <$CPUI>) {
	chomp $line;
	print "$line\n";
}
close($CPUI);