$db = ($ENV{'SERVER_NAME'} ne "50free.net")
   ? DBI->connect("DBI:mysql:nikos_db", "root", "")
   : DBI->connect("DBI:mysql:nikos_db:50free.net","nikos_db","macgyver")
   or print font({-size=>5, -color=>'Lime'}, $DBI::errstr) and exit 0

##</code><code>##

Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2)

##</code><code>##

$db = DBI->connect('DBI:mysql:nikos_db', 'root', '') or
$db = DBI->connect('DBI:mysql:nikos_db:50free.net', 'nikos_db', 'macgyver', {RaiseError=>1});