RosettaCodeData/Task/Program-termination/Perl-6/program-termination.pl6

if $problem { exit $error-code }