sub myroutine {
    ...

    if ($n < 5 or $n > 10) {
        die RangeError::->new(min => 5, max => 10, got => $n, ...);    
    }

    ...
}