sub _S_U_B_R_O_U_T_I_N_E {
    _S_U_B_B_O_D_Y;
}

{
    local(@return) = &_S_U_B_R_O_U_T_I_N_E(_P_A_R_A_M_E_T_E_R_S);
    if (shift @return) {
	_S_U_C_C_E_S_S
    } else {
	_F_A_I_L
    }
}
