Select Code to Download

uuse strict;
use warnings;
...
PrintHash({Uno=>1, Dos=>2, Tres=>3, Cuatro=>[1,2,3,4], Cinco=>{otro=>9
+9,rojo=>'Red'}},
            "Error codes:",
            0);

> perl .\printhash.pl
Error codes:Cuatro = @(1 2 3 4)
...
        otro = 99
        rojo = Red
}