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

    return 1;
}

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