$ perl -le " use B::Deparse; use 5.014; print B::Deparse->new->coderef2text(sub{}) "
{
    use strict;
    no feature;
    use feature ':5.12';

}