#!/usr/local/bin/perl
chomp(@datafile = `/usr/sbin/kmtune -S /stand/system`);
foreach (@datafile)
{
        tr/[A-Z]/[a-z]/;
        ($key,$value) = split(/\s+/);
        if ($key eq "Parameter" || $value eq "") { next; }
        if (grep/^0x/i,$value) { $value = hex($value); }
        $var{$key} = $value;
}
foreach $key(keys %var)
{
### Evaluating the hash variable generates errors on the ones that have varibales embedded in them.
        #print "$key:", eval $var{$key}, "\n";

### This works, but doesnt resolve formulas in the variables.
        print "$key:", $var{$key}, "\n";
}