use DBD::mysql; $sock = Mysql->connect(undef, $database, $user, $password );