Too much work. You can simplify the Perl part of that to just:

PerlAuthenHandler "sub { (shift->get_basic_auth_pw)[0];  }"
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.