use strict;
use Win32::OLE qw{ in };

use constant bFlagReturnImmediately => 0x10;
use constant bFlagForwardOnly => 0x20;

my $wmi = Win32::OLE->GetObject("winmgmts:\\\\localhost\\root\\CIMV2")
	or die "GetObject failed: $!\n";
	

my $products = $wmi->ExecQuery("SELECT * FROM Win32_Product", "WQL", 
	bFlagReturnImmediately | bFlagForwardOnly) 
	or die "WMI::ExecQuery failed: $!\n";
	
foreach my $product (in $products) {
	print $product->{InstallDate}, "\t", $product->{Caption}, "\n";
}