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