$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