DB<410> $str = join "\n", a..d

  DB<411> open AFH, "<",\$str

  DB<412> p "".<AFH>
a

  DB<413> p "".<AFH>
b

  DB<414> @stat = stat AFH

  DB<415> x @stat
  empty array
  DB<416>