...
close CMD;

waitpid $pid, 0;

print "$progname ended: status: ", $? >>8;