RosettaCodeData/Task/Program-termination/Perl/program-termination.pl

7 lines
201 B
Perl

if ($problem) {
exit integerErrorCode;
# conventionally, error code 0 is the code for "OK"
# (you can also omit the argument in this case)
# while anything else is an actual problem
}