Re: Upoading file using perl

[poolpi]

You may check errors whith the cgi_error function

See Retrieving CGI errors

# From the doc
my $error = $q->cgi_error;
    if ($error) {
        print $q->header(-status => $error),
              $q->start_html('Problems'),
              $q->h2('Request not processed'),
              $q->strong($error);
        exit 0;
    }

Your $CGI::POST_MAX is 1024 * 5000 bytes.
Is it big enough for image files?

hth,
PooLpi