Select Code to Download

Select or download this

    open(frontFILE, $imageFront.'.gif');
    read (frontFILE, $blobFront, -s "$imageFront");
...

    my $sth=$db->prepare("Insert INTO docs (FrontImg,BackImg,docID) va
+lues (?,?,?);
    $sth->execute($blobFront, $blobBack, $docID) or die $sth->errstr;

Select or download this

        my $whichImage = 'e5c59e0d-fc0e-4d8e-9fa5-7b3bac6f8f25';

...
    #print $q->header(type=>'image/gif', Content_Length=>length($blob)
+).$blob ;

        if($blob ne $data->{BackImg}){die $data->{BackImg}."\nlength="
+.length($data->{BackImg})."\nfile image = ".$blob."\nlength=".length(
+$blob);}