Create correct.pl

quick and dirty