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

0
C:\tmp>

##</code><code>##

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

>>>
C:\tmp>