#!perl

use strict;
use warnings;

sub run_proc {
	my $code = shift;

	print "now running with $code\n";
	my $status = system("process.pl $code");

	my $exit_value  = $status >> 8;
	my $signal_num  = $status & 127;
	my $dumped_core = $status & 128;

	print <<"END_OF_STATUS";
exit_value:  $exit_value
signal_num:  $signal_num
dumped_core: $dumped_core
END_OF_STATUS
}

run_proc(123);
run_proc(-1);
run_proc(255);
run_proc(-5);
run_proc(251);