added code to deal with http://www.perlmonks.org/?node_id=888282