http://www.perlmonks.org?node_id=993653


in reply to Checking mainboard

Parse::DMIDecode:
#!/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; foreach my $keyword (@keywords) { printf("%s => %s\n", $keyword, $decoder->keyword($keyword) ); }