$path=$param1 ; $path =~ s`http://$host`$path_to_domain`; $htp=$path."/.htpasswd"; print "Content-type: text/html\n\n"; if(!-e $htp){ print qq~~; }else{ print qq~~; } 1;