die "Can't fork: $!" unless defined $pid = open(KID, "-|");
if ($pid) {           # parent
    while (<KID>) {
       # do something
    }
    close KID;
} else {
    exec 'myprog', 'arg1', 'arg2' 
        or die "can't exec myprog: $!";
}