mode_perl
case mode_perl:
mode == mode_perl ? "SHA" : digestname);
mode = mode_perl;
if (mode == mode_perl) {
if (mode == mode_perl &&