Help for this page
use DBI; ... my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=orcl;port=7010", $user, $password, { RaiseError => 1, AutoCommit => 0 }) +;
TNS:listener does not currently know of SID in connect descriptor