sub Win32::EventLog::new {
    package Win32::EventLog;
    die "usage: PACKAGE->new(SOURCENAME[, SERVERNAME])\n" unless @_ > 1;
    my ( $class, $source, $server ) = @_;
    my $handle;
    my $error;
    # Create new handle
    if ( $source !~ /\\/ ) {
        my $ret = OpenEventLog( $handle, $server, $source );
        $ret or $error = [ [ int $!, $!], [int $^E, $^E] ];
    }
    else {
        my $ret = OpenBackupEventLog( $handle, $server, $source );
        $ret or $error = [ [ int $!, $!], [int $^E, $^E] ];
    }
    return bless {
        handle   => $handle,
        Source   => $source,
        Computer => $server,
        error    => $error,
    } => $class;
}

##</code><code>##

lpEvtLog->hLog = OpenEventLogA(lpszUNCServerName,lpszSourceName);