eval { main(); 1; }; if (my $error = $@) { log()->error($error); exit(error_no_success()); } exit(error_success());