http://www.perlmonks.org?node_id=450060

Use of uninitialized value in print