#!/usr/bin/perl
use POSIX;
if(@ARGV){ $SIG{'CHLD'} = 'IGNORE'; }
system('./prog2.pl');
$status=$?;

if(WIFEXITED($status)){
 print "prog2.pl exited normally, returning ",
       WEXITSTATUS($status), "\n";
}elsif(WIFSIGNALED($status)){
 print "prog2.pl was terminated with signal ",
       WTERMSIG($status), "\n";
}elsif(WIFSTOPPED($status)){
 print "prog2.pl is stopped for signal ",
       WSTOPSIG($status), "\n";
}else{
 print "can't understand what happened to prog2.pl; ",
       "status is ",$status,"\n";
}