As dragonchild said, you can set $ENV{ORACLE_SID} however you don't have to do so. You can add the SID to your connect statement (see DBD::Oracle).

# set your $host, $sid, $user and $passwd then connect
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passw
+d);
[download]