if ($host eq "dell") {
   if ($db = DBI->connect("DBI:mysql:nikos_db", "root", "XXXX")) {}
   else
   {
      print font( {-size=>5, -color=>'Lime'}, $DBI::errstr );
      exit();
   }
}
else {
   if ($db = DBI->connect("DBI:mysql:nikos_db:50free.net", "nikos_db", "XXXX")) {}
   else
   {
      print font( {-size=>5, -color=>'Lime'}, $DBI::errstr );
      exit();
   }
}