#!/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),
        );