$bastard->beat(severity => $max) while ( lc($bastard->state()) eq 'alive' ); $cool_looping_constructs->restore();