Does the job and is very well written

This works great except I needed to comment out lines 742-745.

if (!defined($o_stdin) && !close(SHELL_DATA)) {
print “UNKNOWN ERROR – execution of $shell_command resulted in an error $? – $!”;
exit $ERRORS{‘UNKNOWN’};
}

These lines are giving the me the error “UNKNOWN ERROR – execution of LANG=C ls -l -R resulted in an error 512 – ‘ on my system (RHEL6, perl5 (revision 5 version 10 subversion 1)).

‘UNKNOWN ERROR – execution of LANG=C ls -l -R resulted in an error 512 – Bad file descriptor’ is the error if I just do a ‘close(SHELL_DATA)’