[peter@kennel tmp]$ perl test_eq.pl
Use of uninitialized value in numeric eq (==) at test_eq.pl line 13.