my %HostInfo = (
   dell        => {connectstr=>"DBI:mysql:nikos_db", user=>"root", pass="XXXX"},
   __DEFAULT__ => {connectstr=>"DBI:mysql:nikos_db:50free.net", user=>"nikos_db", pass="XXXX"}
   );
my $hostIdx = $host;
if (not exists $HostInfo{$hostIdx)){
   $hostIdx ="__DEFAULT__";
}

if ($db = DBI->connect($HostInfo{$hostidx}{connectstr},$HostInfo{$hostidx}{user}, $HostInfo{$hostidx}{pass})){
  # Connect OK
}else{
     print font( {-size=>5, -color=>'Lime'}, $DBI::errstr );
     exit();
}