Ты бы хоть сказал, что должен делать этот скрипт....
С т.зр. синтакиса языка перл все вроде ок, но логическая правильность определяется тем, насколько скрипт соответствует поставленной задаче - а ее-то нет.

>Срочно!!!!!!!!!!!
>Нужен совет хорошего perl програмера
>
>  my $self = shift;
>  my $file = shift;
>  my $type = $self->r->content_type;
>  my $remote_ip = $self->r->connection->remote_ip . '.';
>  my $is_audio = $self->supported_type ($self->r->content_type);
>  my $check_addr = 1;
>  my $denied_addr = 0;
>  my @local_ips = $self->r->dir_config( "www_local_ips" );
>
>    if (__MATCH_IP($remote_ip, qw{192.168.1.0/24})) {
>       $denied_addr = 1;
>    }
>
>   if ($check_addr != $denied_addr) {
>      $self->r->log_reason('File downloading is forbidden');
>      return FORBIDDEN;
>
>   } else {
>     return DECLINED;
>
>правельно ли это логически ?
Нет неправильно, вот так писать:
my $self = shift;
my $file = shift;
уже ошибка.