Help for this page

Select Code to Download

Select or download this

while (...) {
  local ($, = $\ = "\n");
  print @fields, "-" x 80;
}