Win32::OLE and IE popups

[puff]

I'm trying to stop IE popups while automating IE via Win32::OLE.
Several examples on the net process the NewWindow2 and/or NewWindow3
event and cancel the popup with code that looks like this:

$event eq 'NewWindow2' and do {
print "NewWindow2 kill popup\n";
$args[1]->Put( 1 ); #<<<<<<<<<<<<<<<<<< doesn't work
print "cancel[" .$args[1]->Value() . "]\n";
last CASE;
};

This does not work and I'm getting PERL crashes.

Does anyone know how to block popups? Can anyone point me to a working
example that blocks popups?

Thanks