package Apache::LogAuth;
use strict;
use Apache::Constants qw(:common);

sub handler {
  my $r = shift;
  my ($res, $sent_pw) = $r->get_basic_auth_pw;
  return $res if $res != OK;
  my $user = $r->connection->user;
  unless ($user && $sent_pw)
  { return AUTH_REQUIRED; }
  open(SOMELOG,">>somelogfile") || return DECLINED;
  print SOMELOG $user,"\n";
  close(SOMELOG);
  return OK;
}
1;
[download]

<LOCATION />
  AuthName Restricted
  AuthType Basic
  PerlAuthenHandler  Apache::LogAuth
  require valid-user
</LOCATION>
[download]

Thanks,

I see what you are saying - as I have not used mod_perl before can I bee dense and ask how I would implement that on the server?

the .htaccess file is located as follows:

http://www.domain.ext/secure/.htaccess

and the admint script/password file are as follows:

http://www.domain.ext/cgi-bin/admin.pl
and
http://www.domain.ext/cgi-bin/.htpasswd

Would the mod_perl sit in the secure directory?

mod_perl is an Apache/Perl integration module. You usually consult the webserver admin about using it. I wouldn't recommend installing it (even if you had rights) if you don't know what you're doing :) Go for a less complex method of doing what you want. If you feel comfortable with perl, look into mod_perl and give this a try.
Anyway, if the admin asks, the settings defined above go in the apache config file (like httpd.conf) and the module goes in the Apache subdir in your Perl directory (I don't mean cgi-bin !). I do assume your admin has a clue and you have a VERY good reason to do this :)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.