DB<3> p "FOO! <$choice>\n"
FOO! <g>

  DB<4>