Help for this page
sub retcode_full_test { # code taken from perldoc -f system if ($? == -1) { ... return $? >> 8; } }