$header = "reflectorHead.pl";
$body   = "reflectorBody.pl";

use CGI qw/:standard/;

$CGI::POST_MAX = 1024 * 100;  # limits size of POST to 100K
$CGI::DISABLE_UPLOADS = 1;    # blocks uploads
      
      
$uploaded_file = param('upload');

if (cgi_error())
{
    require $header;
    require $body;
    print "<p>POST size it too large!</p>\n";
    exit(0);
}
elsif (!$uploaded_file && uc($ENV{'REQUEST_METHOD'}) eq "PUT")
{
    require $header;
    require $body;
    print "<p>File upload is not supported!>/p>\n";
    exit(0);
}