> mysql -h rat -u indapa -p

##</code><code>##


#!/user/bin/perl -w
use strict;
use DBI;

my $dsn = 'dbi:mysql:genedb';
my $user = 'indapa';
my $password = '*****';

my $dbh = DBI->connect($dsn,$user,$password) or die $DBI:errstr, "\n";

##</code><code>##

DBI connect('aindap','aindap',...) failed: Can't connect to local MySQL server through socket '/var/lib/mysql/mysql.sock' (2) at .//exon_query.pl line 31
Can't connect to local MySQL server through socket '/var/lib/mysql/mysql.sock' (2)