sub foo ($$); { while ($bar); { $bar = 0; print << "HERE_DOC"; This doesn't print for some reason HERE_DOC } }