my $dbhost = "*HOST*";
my $dbport = "1521";
my $dbsid = "*SID*";

my $dbh = DBI->connect("dbi:Oracle:host=$dbhost;sid=$dbsid;port=$dbport",$username,$password) or die $DBI::errstr;
my $sth = $dbh->prepare("SQL STATEMENT");