A few ideas:

print "$aevent{TimeGenerated}\n";
[download]

should probably be

print $aevent->{TimeGenerated} . "\n";
[download]

Next, try replacing $Wmi->ExecQuery("...")

with the InstancesOf method

$aevents = $Wmi->InstancesOf($Win32_Class)
[download]

While this should return all events (not what is wanted), it might reveal the query statement is the problem. I mean, let's try to get something back, and then we can narrow it down. ;)

--Solo

--
You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.