sub daemon {
   my $self = shift;
   $self->{daemon} = $_[0] if @_;
   return $self->{daemon};
}