{
  use File::Find;
  use ModPerl::RegistryLoader ();

  my $rl = ModPerl::RegistryLoader->new (
      package => 'ModPerl::Registry',
      debug => '8',
      NameWithVirtualHost => '0',
  );
  my $directory = "/var/www/html/example.com/cgi-bin";
  my $uri = "http://www.example.com/cgi-bin/";

  opendir THISDIR, $directory or die $!;
  foreach ( @files = grep !/^\./, readdir THISDIR ) {
    $rl->handler( "/cgi-bin/$_" ,
                  "/var/www/html/example.com/cgi-bin/$_",
                  "www.example.com" );
  }
}