$keyword,
      $decoder->keyword($keywords)
   );
##</code><code>##

#!/usr/local/bin/perl

use strict;
use warnings;
use Parse::DMIDecode;

my $decoder = Parse::DMIDecode->new(
              dmidecode  => "/usr/sbin/dmidecode",
              nowarnings => 1,
            );
$decoder->probe;

my @keywords = $decoder->keywords;

for my $keyword (@keywords) {
    printf("%s => %s\n",
            $keyword,
            $decoder->keyword($keyword)
        );
}                    
 
##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Parse::DMIDecode;

my $decoder = Parse::DMIDecode->new(
                    dmidecode  => '/usr/sbin/dmidecode',
                    nowarnings => 1,
               );
$decoder->probe;

printf("System: %s =>  %s %s %s %s\n",
       $decoder->keyword("slot-current-usage"),
       $decoder->keyword("slot-designation"),
       $decoder->keyword("slot-id"),
       $decoder->keyword("slot-length"),
       $decoder->keyword("slot-type"),
      );

my $total_structures = $decoder->structures;
printf("Structures: %s\n",
        $decoder->structures($total_structures),
        );