Select Code to Download

use strict; use warnings; use feature qw/ say /;
use Data::Dumper; $Data::Dumper::Sortkeys = 1;
...

__END__

$ perl 1201682.pl

...
                 ]
        };