Select Code to Download

      if (($POST_MAX > 0) && ($content_length > $POST_MAX)) {
      $self->cgi_error("413 Request entity too large");
...
    }
  return $self->{'.cgi_error'};
}

my $q = new CGI;

do_file_too_big() if $q->cgi_error =~ m/413/;