package dir_browse::dir_browse;
use Apache2::Module;
...
Apache2::Module::add(__PACKAGE__, [{name => 'START_DIR'}]);
...
sub handler : method {
  my ($self, $r) = @_;
...
  my $cfg = Apache2::Module::get_config(__PACKAGE__, $r->server, $r->per_dir_config) or throw Error;
  $self->{START_DIR} = $cfg->{ST_DIR};
...
}

sub START_DIR {
  my ($cfg, $parms, $arg1) = @_;
  $cfg->{ST_DIR} = $arg1;
}

##</code><code>##

PerlModule Apache2::Reload
PerlInitHandler Apache2::Reload
...
PerlLoadModule dir_browse::dir_browse
<Location /dir_browse>
  SetHandler perl-script
  PerlResponseHandler dir_browse::dir_browse
  PJX_JSDEBUG 2
  PJX_DEBUG 1
  START_DIR "C:\MP3"
</Location>