for (qw/SysInfo MemStats SockStats DiskUsage LoadAVG Processes/) {
  no strict 'refs';
  $stats->{$_}  = &$_() if $param{$_};
}