#!/usr/bin/perl

use strict;
use Parse::DMIDecode;

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

printf("System: %s\n",
       $decoder->keyword("system-serial-number"),
      );
[download]