open FILE, "/proc/cpuinfo";
while(<FILE>) {
    if (/processor/) { $num_cpus++; }
}
close FILE;

print $num_cpus;