print "LOCALE " . setlocale(LC_NUMERIC) . "\n";
my $winmgmts = Win32::OLE->GetObject("winmgmts:");
print "LOCALE " . setlocale(LC_NUMERIC) . "\n";
setlocale(LC_NUMERIC, 'C');
print "LOCALE " . setlocale(LC_NUMERIC) . "\n";