Make sure you set the environment variable ORACLE_HOME first of all. I also set the TWO_TASK environment variable so I don't have to put the SID in the script.

$ENV{ORACLE_HOME}=/path/to/oracle
$ENV{TWO_TASK}=T:IP_ADDRESS:SID

$database = DBI->connect ('dbi:Oracle', $user, $pass, {});
[download]

Edit dws add code tags