$sth->bind_param(':var1',$var1 , {ora_type=>ORA_VARCHAR2});
$sth->bind_param(':var1',$var1 , {ora_type=>ORA_VARCHAR2});
$sth->execute();