perlcc: q typo at eof