/wlsedi/howard$: perl pm.pl
Without
Use of uninitialized value in numeric eq (==) at pm.pl line 10.
With
/wlsedi/howard$: