use strict;
use CGI qw(:standard escape escapeHTML);
use Authen::Captcha;
use Image::Magick;
use Data::FormValidator (qw/filter_ucfirst/);
use Data::FormValidator (qw/valid_email/);
use CGI ':cgi-lib';
use Regexp::Common (qw/profanity/);
use lib qw(/var/www/vhosts/cfhs69.com/cgi-bin);
use CGI::Carp qw(fatalsToBrowser);
[download]

Is there any way I can run the command you show from inside my script? If not, I can ask my hosting service to run it. Needless to say, they do not invite me to run commands directly on their server.

It's important that this command be run by your script a short time before it crashes. Otherwise the output might not be helpful.

As you have not posted code, I assume that you don't know where the error happens. This makes it difficult to run the command shortly before that, so I suggest putting something like

warn `ls -l /proc/$$/fd/` . ' ';

in various places in your code; you will probably see the output in your server log.

The appended whitespace ' ' ensures that the string does not end in a newline. warn() and die() append the source code line number in that case.

Thanks! When I have observed the failure, I have noted a couple of processes where failure seems more frequent. I can put this into those modules. Does the output go to the logs only? Or will the user see something? My script still includes the line:

use CGI::Carp qw(fatalsToBrowser);
[download]

Will that affect what the user sees when the script encounters the warn statement? Thanks, Tony