use DBI;
my $dbh;
my $sth;
my $plsql;
my $id=0;
my $l_chime = qw(HZgrDAwAPB5QvcatrY);

connect_db();


eval{
$plsql = $dbh->prepare(q{
			BEGIN 
				:id := Pkg.search_string(:l_chime); 
			END;
			}); 


$plsql->bind_param_inout(":id",\$id,16);
$plsql->bind_param_inout(":l_chime",\$l_chime,4000);
$plsql->execute;
$plsql->finish;
};
print "returned: id: $id \n";