#!/usr/local/bin/perl # 自分自身のファイル名を取得 $script_name = $ENV{SCRIPT_NAME}; $script_name =~ s|.*/([^/]+)$|$1|; print "Content-type: text/html\n\n"; print < 掲示板

掲示板

END

ハンドルネ―ム: