Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
...
...
    print Dumper $kind;
    ...
    }