Help for this page

Select Code to Download

Select or download this

Package UploadDemo;

...
  $r->print ( "ok -- file was uploaded" );
  return OK;
}

Select or download this

  <Location /upload.html>
    SetHandler perl-script
    PerlHandler UploadDemo
  </Location>