# prepare update statement
print "INFO: reading $photo to blob\n";
open (BLOB, "<$photo") or die "Can't open $photo: $!";
binmode BLOB;
local($/) = undef;
$blob = <BLOB>;
close (BLOB);

my $sth = $dbh->prepare ("update ssi_pri_photos set recorded = sysdate, recorded_by = 'David', photograph = ? where number = $id");

$sth->bind_param(1, $blob, {ora_type => ORA_BLOB, ora_field => 'photograph'});