Select Code to Download

BEGIN {
    *fold_case = CORE->can( 'fc' ) || CORE->can( 'lc' ) ||
        sub { lc $_[0] };
}