sub daemon
 {
 my $self = shift;
 ${*$self}{'httpd_daemon'};
 }