use strict;
use warnings;
use DMI::Decode;

my $dmi = new DMI::Decode;

my $system_info = $dmi->system_information;
 
print "Produkt: " . $system_info->{name}, "\n";