use strict;
use warnings;
use Win32::OLE;

my $foo = 7.5;
print "foo is '$foo'\n";

my $winmgmts = Win32::OLE->GetObject("winmgmts:");

my $bar = 7.5;
print "bar is '$bar'\n";