#!/usr/bin/perl -w
use strict;
use Parse::DMIDecode ();
my $dmi = new Parse::DMIDecode;
$dmi->probe;
printf("System: %s, %s\n",
$dmi->keyword("system-manufacturer"),
$dmi->keyword("system-product-name"),
);
#!/usr/bin/perl -w
use strict;
use Parse::DMIDecode ();
my $dmi = new Parse::DMIDecode;
$dmi->probe;
printf("System: %s, %s\n",
$dmi->keyword("system-manufacturer"),
$dmi->keyword("system-product-name"),
);