unless ( $result = my_sub() ) {
   # handle error condition based on error var
}