#!/usr/bin/perl -w
use strict;
my $cpu = 0;

open(CPUINFO, "/proc/cpuinfo");
while(<CPUINFO>) {
	$cpu++ if /^processor\s/;
}

if ($cpu > 2) {
	print "$cpu times as much happens.\n";
} elsif ($cpu == 2) {
	print "Twice as much happens.\n";
} else {
	print "Nothing happens.\n";
}
