{
    my @squidblock= split(',', $squidguard{Squidguard_Block} || '');
    return "# No Blocked Squidguard list defined" unless (scalar @squidblock);
    foreach my $squidblock (sort @squidblock)
       {
          if ($squidblock eq 'sex')
             {
          $OUT .= "# $squidblock ACL entries\n";
          $OUT .= "dest $squidblock \{\n";
          $OUT .= "        domainlist      $squidblock/lingerie/domains\n";
          $OUT .= "        urllist         $squidblock/lingerie/urls\n";
          $OUT .= "\}\n";
          $OUT .= "\n";
             }

       }
}
