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