use strict;
use DBI;

my $domain_id;

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

my $statement =  qq|select domain_id from networks_full where netnumber = 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;