DB<1> open ($in,'<','FILE')
  DB<2> @ln = <$in>
  DB<3> close $in