Select Code to Download

    "HASH" eq ref($_)
    /HASH/
    /(^|=)HASH\b/
    UNIVERSAL::isa( $_, "HASH" )

    use Hash::FindKeys qw( FindHashKeys );
    # FindHashKeys finds keys of a hash where the key and
...
            sub { /^-/ }, sub { $_ ne "" } );
        # Oops, that dies!
    }