Private Sub object_NewWindow2( _
	ByRef ppDisp As Object, _
	ByRef Cancel As Boolean) 

##</code><code>##

sub ie_events(){
    my( $ie, $event, @args ) = @_;

##</code><code>##

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

##</code><code>##

        $args[0]->Put( $ie ); 
        $args[1]->Put( 0 );