$db1 = DBI->connect("DBI:mysql:nikos_db", "root", "") or $db2 = DBI->connect("DBI:mysql:nikos_db:50free.net", "nikos_db", "macgyver"); if (!$db2 and $db1) { print font( {-size=>5, -color=>'Lime'}, "$DBI::errstr" ); $db=$db1; } if (!$db1 and $db2) { print font( {-size=>5, -color=>'Lime'}, "$DBI::errstr" ); $db=$db2; } $db->do( "drop database if exists nikos_db" ); $db->do( "create database nikos_db" ); $db->do( "use nikos_db" );