Help for this page

Select Code to Download

Select or download this

my $prog = shift;
eval {
...
  $childexit = 1;
}
CORE::exit($childexit);