(use cgi-protocol byte-blob)

(define save-location "/tmp")

(define (action request)
  (let ((inputs (request-inputs request))
        (body   (request-body request)))
    (DocumentResponse 
     `((Content-type . "text/plain;charset=us-ascii"))
     `(,(sprintf "Hello, ~A (File: ~A)" 
                 (simple-input->string (alist-ref 'name inputs))
                 (alist-ref 'file inputs)
                 ))
     )

   ))

(print (run-action action (current-input-port)))