$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)))}, "");
  
 if ( undef $dbh ) {
  print LF "Cannot connect to database!\n";
  &log_send_mail;
  exit;
 }
 else {
  print "Connection to $bu_sid successful\n";
 }