use Win32::OLE::Variant;
   use Win32::OLE qw( EVENTS in with valof );

   Win32::OLE->Option( Warn => 3);
   
   my $ie = Win32::OLE->new('InternetExplorer.Application');
   Win32::OLE->WithEvents($ie, \&cleanExit, 'DWebBrowserEvents2');