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

    $dbh;
}