sub end{
&header;
open(IN,"$file") || &error("$file を読み込めません");
@lines = <IN>;
　　　close(IN);

foreach $line (@lines) {
local($name,$url,$mail,$body,$hogehoge) = split(/<>/,$line);
&output;
}
&footer;
exit; }
こんな感じです。