my ($sec,$min,$hour,$mday,$mon,$year) = localtime();
 my $m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon].
   "-$mday-".substr($year,-2).sprintf(' %02d:%02d:%02d', $hour,$min,$sec);
 $m.= " $Con{$fh}->{ip} <$Con{$fh}->{mailfrom}>" if $fh && $Con{$fh};
 $m.= " $_[0]\n";
 print $m unless $silent;
 print DEBUG  $m;