my $data_source = dbi:DriverName:database=database_name;host=hostname;port=port

$dbh = DBI->connect($data_source, $username, $password)
            or die $DBI::errstr;