eval {
    local $SIG{ALRM} = sub { die "Unable to initiate Zip4 connection"; };
    alarm(1);
    $zip4 = new Win32::DDE::Client('ZP4', 'Addresses');
    $SIG{ALRM}->() if $zip4->Error;
    alarm(0);
};
die $@ if $@;