http://www.perlmonks.org?node_id=1045677


in reply to Proper use of "EQ" or while loops

It's helpful to put markers around things you print out for debugging or testing ...
print "getc is [$getc]\n";