sub daemonize {
    action()
        or die "$errstr\n";

    return 1;
}

eval { demonize() }
    or print("error: $@");

##</code><code>##

# A global could also be used instead of an attribute.

sub daemonize {
    action()
        or return $self->set_error($errstr);

    return 1;
}

$o->demonize()
    or print("error: " . $o->get_error());