.htaccess - правильный инструмент для этой работы, но если вы настаиваете, древний древний древний путь
#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
Main( @ARGV );
exit( 0 );
sub Main {
my ( $q ) = CGI->new;
if( $q->param('password') eq 'secret' ){
print ShowAWSTATS($q);
} else {
print ShowLoginForm($q);
}
}
где ShowLoginForm () печатает заголовок содержимого $q->header
вместе с html для формы входа, а ShowAWSTATS печатает заголовок содержимого и, скажем, некоторый html, предоставленный awstats.pl
Как говорит Лен Джаффе, нужно сделать гораздо больше, поэтому вы хотите использовать .htaccess (это либо 3 минуты с .htaccess, либо часы с чем-либо еще)