Select Code to Download

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