my $dbh=DBI->connect('dbi:mysql:dbname'
        . ';host=127.0.0.1'
        . ';port=3310',
'user', 'password');

##</code><code>##

my $dbh=DBI->connect('dbi:mysql:dbname'
        . ';host=localhost'
        . ';mysql_socket=/var/mysql4.1.9/mysql.sock',
'user', 'password');

##</code><code>##

SET PASSWORD=OLD_PASSWORD('yoursecretpassword');