# Untested, but the constants are right
use POSIX qw(sysconf);
$const{linux}->{_SC_NPROCESSORS_CONF} = 83; 
$const{aix}->{_SC_NPROCESSORS_CONF} = 71; 
print sysconf($const{$^O}->{_SC_NPROCESSORS_CONF});