my $stats = Statistics({
   ProcStats => 1,
   MemStats => 1,
   NetStats => 1,
   DiskStats => 1,
   DiskUsage => 1,
});

sub Statistics {
   my $param = shift;
   my $stats = {};

   foreach my $opt (keys %$param) {
      if ($opt eq 'ProcStats') {
         $stats->{ProcStats} = ProcStats();
      }
      elsif ($opt eq 'NetStats') {
         $stats->{NetStats} = NetStats();
      }
       # usw ...
   }

   return $stats;
}