C:\tmp>perl
$a=qx(wmic path win32_computersystemproduct get uuid);
print "<<<$a>>>";
__END__
<<<UUID
2DA054C5-6464-11EC-8B14-A054C44A693E

>>>
C:\tmp>