HERE; print $line; $next = $c + 1; $last = $c - 1; $navi = << Archives
HERE; print $navi; $id = "pages/list.txt"; $page = file($id); $select = << HERE; print "$select
"; print "
"; ?>