#!/usr/bin/perl

my @progs = qw(/bin/true /bin/false) ;

for my $prog (@progs) {
  my $pid = fork;
  die "Couldn't fork: $!" unless defined $pid;
  if ($pid) {                   # parent
    wait();
    my $status = int($?/256);
    print "Program '$prog' (pid $pid) returned $status\n";
  } else {                      # child
    exec $prog;
    die "Child couldn't exec: $!";
  }
}