sub options {
  my $self = shift;
  my $ref  = shift;
  my $prop = $self->{server};
  my @newo = qw(root_html root_cgi);  # YOUR NEW OPTIONS HERE!

  $self->SUPER::options($ref);

  for (@newo){
    $prop->{$_} = undef if(!exists $prop->{$_});
    $ref->{$_} = \$prop->{$_};
  }
}