use warnings; use strict; use Inline "C"; my $one_minute_avg = one_minute_avg(); printf "Load avg: $one_minute_avg\n"; __END__ __C__ #include long one_minute_avg() { struct sysinfo si; if(sysinfo(&si) == 0) { return si.loads[0]; } else { return -1L; } } #### 0.63 0.65 0.79 1/112 6661