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";

[download]

In Section Seekers of Perl Wisdom