my $dsn = "DBI:Proxy:hostname=$pghost;port=12400;dsn=DBI:Oracle:$pgdatabase;
use vars qw($conn);
$conn = DBI->connect($dsn, $pguser, $pgpassword, LongReadLen=>15000000, AutoCommit=> 1, RaiseError=>1, PrintError=>1});

   my $sql1=qq{
insert into LOCAL_FILE_BLOBS VALUES('$CWMS','$FILE_T',20,'$DES',
'$org',TO_DATE('$DATE_IN','YYYY-MM-DD HH24:MI:SS'),
?,(select MAX(FILE_ID) +1 from LOCAL_FILE_BLOBS))};

        print "$sql1<BR>\n";
        my $sth1 = $conn->prepare($sql1);

##</code><code>##

        $sth1->bind_param(1, $temp, 
{ora_field => 'FILE_DATA', ora_type =>113 });
        $sth1->execute($temp);