#!/usr/bin/perl
use warnings;
use strict;
use Inline "C";

my ($totalram, $freeram) = sysinfo_as_list();

die "sysinfo failed" unless
               
      defined $totalram;
print "totalram: $totalram\n";
print "freeram:  $freeram\n";

# bei den nächsten beiden Zeilen ist der Bindestrich - durch den
# Unterstrich _ zu ersetzen, dieser verschwindet komischerweise
# immer hier im Board *wunder*
--END--
--C--
#include <sys/sysinfo.h>
#define MO_IV(x) sv_2mortal(newSViv(x))

void sysinfo_as_list() {
   Inline_Stack_Vars;
   struct sysinfo si;

   if(sysinfo (&si)) {
       return;
   }

   Inline_Stack_Reset;
   Inline_Stack_Push(MO_IV(si.totalram));
   Inline_Stack_Push(MO_IV(si.freeram));
   Inline_Stack_Done;
}