my $realm;
if ($ENV{SCRIPT_FILENAME} =~ m!${docroot}(.*?)/!) {
    $realm = $1;
} else {
    print "Realm ($realm) is really wrong.\n";
}