Hi, I have select query as following: Select domain_id from networks_full where netnumber = hextoraw('3E198000').
I need to implement similar query through perl DBI..So I have written it as

use strict;
use DBI;

my $domain_id;

my $dbh   =  DBI->connect("dbi:Oracle:host=$dbhost;sid=$dbname;port=15
+21", "$dbuser/$dbpass", "") or die "unable to connect: $DBI::errstr\n
+";

my $statement =  qq|select domain_id from networks_full where netnumbe
+r = hextoraw(?)|; #netnumber is raw type.

my $sth = $dbh->prepare($statement) or die "Couldn't prepare statement
+: $DBI::errstr; stopped";

my $hexnetnumber = '3E198000';

$sth->execute($hexnetnumber) or die "Couldn't execute statement: $DBI:
+:errstr; stopped";

while(my $ref = $sth->fetchrow_hashref())
{
 $domain_id   = $ref->{'domain_id'};
}

$sth->finish;

print "domain_id is:",$domain_id,"\n";

$dbh->disconnect;
[download]

when I execute this script its not returning any data while i query the database through SQL*Plus it is returning data. So i think there must be some problem while converting hex to raw. please help me..