sub mysql_connect {
    my %attr = (
        PrintError => 0,
        RaiseError => 0,
    );
    
    my $dbh = DBI->connect(
        qq|DBI:mysql:mysql_compression=1:
        $db_string:
        $db_server:
        $db_port|,              
        $db_user,
        $db_password,
        \%attr
    ) or die "Error<br />$DBI::errstr<br />";
    
    $dbh;
}