# successful command and exit code
system ('dir');
print qq(ERR Code = $?\n);
# UN-successful command and exit code
system ('dri');
print qq(ERR Code = $?\n);