$meminfo=`cat /proc/meminfo | grep "^Mem: "`;
$meminfo =~ s/^Mem\:\W+//;
($total, $used, $free, $shared, $buffered, $cached) = split(/\W+/,$meminfo,6);