use CGI":all";charset$c="EUC-JP";($p=path_info||Home)=~s!^/+|/+$!!g;chdir("./".
$p)||die;$F='.7hoo';if(@p=map{param$_}U,T,D){s/\s/ /g for@p;open F,">>$F";eval{
flock F,2};$"="\t";print F"@p\n"}put header,start_html(-encoding=>$c,lang,ja,
Title,"7Hoo"),p(join" / ",map{a{href,url.($i.="/$_")},$_}split"/",$p),hr,ul(li[
map{a{href,url."/$p/$_"},$_}grep-d,<*>]),open(F)&&hr.dl(map{@N=split/\t/;dt(a{
href,$N[0]},b$N[1]),dd$N[2]}<F>),hr,startform(0,url."/$p"),p((map{textfield(
/(.)/,$_,40),br}Url,Title),textarea(D,"",3,40,1),br,submit,),endform,end_html

・l10n 。
・Home ディレクトリをスクリプトと同階層に用意。
・カテゴリの table をやめて ul 一つに。
・リンクリストを dl に。
・登録フォームを常に表示。