<!-- the Uploader (excerpt) -->
# upload the file
undef $buffer;
open FILE, "> /tmp/bld$$" or $req->error("Could not open /tmp/bld$$. $!");
print FILE $buffer
  while read($fdat{filedata}, $buffer, 32768);
close FILE;
$filename=$fdat{filedata}; $filename=~s(^.*/|^.*\\)(); # depathify  
$filename =~ s/\s/_/g;  

# sanitize for security reasons, then apostrophe-quote the two updateable fields.
$subs->fdat_sanitize (\%fdat);  # Note: we are doing this after the filedata has been extracted
$filename =~ s/'/''/g;
$bld_comment = $fdat{bld_comment};
$bld_comment =~ s/'/''/g;

# insert blank BUDGET_LINE_DOCUMENT
$bld_id = $req->nextval(sequence_name => "BLD_SEQ");
$req->error("Budget Line with bld_id = $fdat{bl_id} does not exist") 
  unless ($req->select_tupple ("select bl_id from budget_line where bl_id = '$fdat{bl_id}'"));
  
unless ($req->errors) {

  # -- Extension --
  $extension = $filename;
  $extension =~ s/^.*(\.)/$1/;
  $extension = lc($extension);
  $mime_type = $req->select_tupple("select mime_type from mime_type where extension = '$extension'");
  
  if ($mime_type) { # document format is recognized
    # -- Insert BUDGET_LINE_DOCUMENT row without DOCUMENT
    $sql = "
      insert into budget_line_document (bld_id, bl_id, username, bld_comment, mime_type, filename, document) 
      values ('$bld_id', '$fdat{bl_id}', '$req->{username}', '$bld_comment', '$mime_type', '$filename', EMPTY_BLOB())
    ";
    $req->{dbh}->do(qq{$sql});
    $req->db_error_check();
 
    # select row for update
    $sql = "select document from budget_line_document where bld_id = '$bld_id' for update";      
    my $sth = $req->{dbh}->prepare (qq{$sql}, { ora_auto_lob => 0 } );
    $req->db_error_check();
    $sth->execute;
    $req->db_error_check();
    ($document) = $sth->fetchrow_array;
    $req->db_error_check();
    $sth->finish;

    # update the document tupple from the temporary file
    open FILE, "/tmp/bld$$" or die;
    my $chunk_size = 4096;
    $buffer = '';
    while ( read ( FILE, $buffer, $chunk_size) ) { $req->{dbh}->ora_lob_append ( $document, $buffer ); }
    close FILE;      

    $req->message("$filename attached to BUDGET_LINE_DOCUMENT table for budget_line $bl_id.");    
    .
    .
    .       
<form name="fupload" id="fupload" method="post" enctype="multipart/form-data">
  <label for="filedata">File: </label>
  <input type="file" name="filedata" id="filedata" style="width: 500px;">
</form> 




<!-- The RETRIEVAL code (excerpt) -->

  [-
  $sql = "select document from budget_line_document where bld_id='$fdat{bld_id}'";
  $sth  = $req->{dbh}->prepare(qq{$sql}, {ora_auto_lob => 0 } );
  die $req->{dbh}->errstr if ($req->{dbh}->errstr);
  $sth->execute;
  die $req->{dbh}->errstr if ($req->{dbh}->errstr);
  $documentloc = $sth->fetchrow;
  die $req->{dbh}->errstr if ($req->{dbh}->errstr);
  $sth->finish;
  
  $offset=1;
  $chunk_size=4096;
  while ($data = $req->{dbh}->ora_lob_read ($documentloc, $offset, $chunk_size) ) {
    die $req->{dbh}->errstr if ($req->{dbh}->errstr);
    $document .= $data;
    $offset += $chunk_size;
  }
  die $req->{dbh}->errstr if ($req->{dbh}->errstr);

		$mime_type = select_tupple ("select mime_type from budget_line_document where bld_id = '$fdat{bld_id}'");
		$http_headers_out{'Content-type'} = "$mime_type";
	
  -]
  [+ $document +]