#!/usr/bin/perl
$SIG{'CHLD'} = 'IGNORE';
system('prog2.pl');
print "return value is ", $?>>8, "\n";

##</code><code>##

#!/usr/bin/perl
exit 5;