##===================================== ## エラー表示 サブルーチン = ##===================================== sub error { print <<"END"; Content-type: text/html ERROR $_[0] $_[0]

$_[1]

こちらをクリックして前の画面に移動してください。




END exit; } 1