my @f=(\&mod_ram_usage,\&mod_disk_usage);
foreach(@f){
  &$_;
}