or download this
Name "main::OUT" used only once: possible typo at /home/lanx/pm/warn_u
+ndef.pl line 141.
*** TESTING["hash_ref", "\$h->{a}"] at /home/lanx/pm/warn_undef.pl lin
+e 138, <DATA> line 2.
...
Use of uninitialized values $$a[0]{'a'} $$a[0]{'a'} in concatenation (
+.) or string at (eval 110) line 2, <DATA> line 12.
Use of uninitialized values $$a[0]{'a'} $$a[0]{'a'} in printf at (eval
+ 113) line 2, <DATA> line 12.
Use of uninitialized values $$a[0]{'a'} $$a[0]{'a'} in sprintf at (eva
+l 116) line 2, <DATA> line 12.