use strict;
use warnings;
use DBI;
my $dbh = DBI->connect('dbi:WMI:');
my $sth = $dbh->prepare('SELECT * FROM  Win32_ComputerSystemProduct');
$sth->execute();
while (my @row = $sth->fetchrow) {
  print $row[0]->{UUID}, "\n";
}