Update correct.pl

Fixed clumsy EOF