sub upload {
    if ($q->upload( 'upload_file', $target )) {
        print $q->header, "Uploaded ", $q->param('upload'), "OK\n";
    }
    else {
        print $q->header, "Oops!\n";
    }
}