$ perl goedel.pl Use of uninitialized value in say at goedel.pl line 7. 1 1 $