#!/usr/bin/perl -w

use strict;

my %param = ( SysInfo => 1 );
my $stats = {};

for (qw/SysInfo/) {     # nur zum Testen
   no strict 'refs';
   $stats->{$_} = &$_() if $param{$_};
}

sub SysInfo {
   open(FM,"</proc/meminfo") or die "LinuxStatistics: can't open /proc/meminfo\n";

   while (<FM>) {        # line 16
      # do something
   }

   close FM;
}