wmic path win32_computersystemproduct get uuid #works in CMD

##</code><code>##

my $UUID = system ('wmic path win32_computersystemproduct get uuid');

##</code><code>##

my ($UUID) = `ioreg -d2 -c IOPlatformExpertDevice` =~ /^.*\bIOPlatformUUID\b.*"([^"]+)"\s*$/m or print "failed to parse ioreg";