#!/usr/local/bin/perl

our $clamd = '/etc/init.d/clamd';
our $mail = '/usr/ucb/mail';

use IO::Socket::UNIX;

$sock = IO::Socket::UNIX->new(Peer => "/var/clamav/clamav.sock",
	Type => SOCK_STREAM,
	Timeout => 10) 
	|| &RestartClamd ;

$sock->send("RELOAD") ;
$sock->recv($mesg, 1024) ;
print $mesg,"\n";

exit (0);