【変数の指定】 use vars qw(%FORM);入力情報 use vars qw(%SETTING);設定情報 use vars qw($NOWTIME);現在の時間 use vars qw($DATE);表示日付 use vars qw($IP);ホスト情報(生?) use vars qw($PROXY);ホスト情報(プロクシ) use vars qw($HOST);ホスト情報($IP<$PROXY>) use vars qw($PATH);$PATH = "../" . $FORM{'bbs'} . "/";(板アドレス) use vars qw($DATPATH);$DATPATH = $PATH . "dat/";(データディレクトリ) use vars qw($TEMPPATH);$TEMPPATH = $PATH . "html/";(テンポディレクトリ) use vars qw($INDEXFILE);$INDEXFILE = $PATH . "index.html"; use vars qw($INDEXGZFILE);$INDEXGZFILE = $PATH . "index.html.gz"; use vars qw($SUBFILE);$SUBFILE = $PATH . "subback.html"; use vars qw($SUBGZFILE);$SUBGZFILE = $PATH . "subback.html.gz"; use vars qw($IMODEFILE);$IMODEFILE = $PATH . "i/index.html"; use vars qw($DATAFILE);データファイル なお、これらについては、変数自体を使わないという選択もありです。