http://www.perlmonks.org/index.pl?node_id=167905&displaytype=displaycode