PerlSetVar AuthFile Pass/listedemo.txt 
AuthName "Acces Restreint" 
AuthType Basic

<limit GET POST>
require user pubdemo 
</limit>