Win32::EventLog does not die

[Cosmic Cruizer]

The following does not die when $server does not exist. An ideas on what I
am doing wrong or what I need to change?

use strict;
use Win32::EventLog;

my $logtype = 'Security';
my $server = 'aserq4fc93';
my $EventLog = Win32::EventLog->new( $logtype, $server ) || die "Cannot
open EventLog\n";

Thanks