sub getSystemData
{
[... snip ...]
return $system_data;
}