my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=$port");