Select Code to Download

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

my $error = undef;
eval { main(); 1; } or $error = $@;
...
  exit(error_no_success());
}
exit(error_success());