Select Code to Download

logprint("Process completed successfully");
exit(0); # As part of testing we've even added exit with an explicit 0
+ as here

DEBUG TEST 1 uses the if/then/else described in perldoc -f system:
DEBUG TEST 1 CASE(else): child exited with value 1
...
DEBUG TEST 2 uses the POSIX::W* checks of perlvar ${^CHILD_ERROR_NATIV
+E} which is: 256 (binary: 0000000100000000)
DEBUG TEST 2: POSIX::WIFEXITED returned true (child exited normally)
DEBUG TEST 2: POSIX::WEXITSTATUS returned: 1 (binary: 0000000000000001
+)