sub dump_consts {

    print "SINS list: @{[SINS]}\n\n";

    no strict 'refs';
    local $, = ' ';
    for my $const (keys %constant::declared) {
        print $const, $const -> (), "\n";
    }
}
__DATA__
SINS list: pride envy gluttony lust anger greed sloth

main::CLOUD 9
main::SINS pride envy gluttony lust anger greed sloth
main::HELL system admin