#!/usr/local/bin/perl
use DBI;

$ENV{"ORACLE_HOME"} = "E:\Oracle\Ora81";

connectToDB("orcl","scott","tiger");
insertElement(10, "clob");
 
#######################

sub insertElement {
  my($id,$clob)=@_;
  my $st = qq{
   begin
    lob_perl_testp( $id, :vclob);
  end;};

  print "$st\n";
  $sth = $db->prepare($st);
  $sth->bind_param_inout(":vclob", \$vclob , {ora_type => ORA_CLOB},0 );
  $rv = $sth->execute;
}


sub connectToDB {
  my($dbname,$user,$passwd) = @_;
  print "connectToDB $user/$passwd\n";
  $db = DBI->connect("dbi:Oracle:" . $dbname, $user, $passwd)
     || die "Unable to connect to $dbname: $DBI::errstr\n";
  print "connected   $user/$passwd\n";
}