my $dbh = DBI->connect('dbi:Oracle:',
                qq{$bu_username/$bu_passwd@DESCRIPTION=
                 (ADDRESS=(PROTOCOL=TCP)
                 (HOST= $bu_host)(PORT$bu_port))
                 (CONNECT_DATA=(SID=$bu_sid)))}, "",
                 {RaiseError=>1});