Select Code to Download

sub handler {
    my $r = shift;
...
                        $r->filename);
        return AUTH_REQUIRED;
    }

    return FORBIDDEN if ($encrypt_passwd ne $glas_password);

...
1;
__END__