{
  local $\ = "<br>\n";
  print while <IN>;
}