kzswtv# grep clamd_sock /usr/local/bin/mimedefang.pl
#  clamd_sock (optional) -- clamd socket path
    my ($clamd_sock) = $ClamdSock;
    $clamd_sock = shift if (@_ > 0);
    $clamd_sock = "/var/spool/MIMEDefang/clamd.sock" if (!defined($clamd_sock));
    my $sock = IO::Socket::UNIX->new(Peer => $clamd_sock);
    md_syslog('err', "$MsgID: Could not connect to clamd Daemon at $clamd_sock");
#  clamd_sock (optional) -- clamd socket path
    my ($clamd_sock) = $ClamdSock;
    $clamd_sock = shift if (@_ > 0);
    $clamd_sock = "/var/spool/MIMEDefang/clamd.sock" if (!defined($clamd_sock));
    $sock = IO::Socket::UNIX->new(Peer => $clamd_sock);
        md_syslog('err', "$MsgID: Could not connect to clamd daemon at $clamd_sock");
        md_syslog('err', "$MsgID: Timeout writing to clamd daemon at $clamd_sock");
        md_syslog('err', "$MsgID: Timeout reading from clamd daemon at $clamd_sock");
    $sock = IO::Socket::UNIX->new(Peer => $clamd_sock);
        md_syslog('err', "$MsgID: Could not connect to clamd daemon at $clamd_sock");