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