my $dbh = DBI->connect("DBI:Oracle:host=$host;port=$port;sid=$sid",$user, $password, {PrintError=>1,RaiseError=>1}) or die "Can't connect to ORACLE database:$DBI::errstr\n";

my $subj_code_query = qq{SELECT * FROM LOOKUP};
my $sth_subj = $dbh->prepare($subj_code_query);