C:\tmp>perl
print system ('wmic path win32_computersystemproduct get uuid');
__END__
UUID
2DA054C5-6464-11EC-8B14-A054C44A693E

0
C:\tmp>