#!usr/bin/perl -w
use SQL::Statement;
use DBD::Oracle;
$dbh = DBI->connect("dbi:Oracle:host=hostname;sid=something",username,password);
$dbh->do("select ID from study where NAME='$search_string_here'");
print "$dbh\n";
exit;