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