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

#!/usr/bin/perl use strict; use warnings;