my $result;
unless ( my_sub(\$result) ) {
   # handle error condition
}