my $dbh = DBI->connect('DBI:mysql:nikos_db', 'root', 'censored') or {RaiseError=>1};

#===============================================================================

my @row;
my $insert = $dbh->prepare( "INSERT INTO games (gamename, gamedesc, gamecounter) VALUES (?, ?, ?)" );
my $update = $dbh->prepare( "UPDATE games SET gamedesc=? where gamename=?" );

open (FILE, "<../data/games/descriptions.txt") or die $!;
    while (<FILE>) {
        chomp;

        my ($gamename, $gamedesc) = split /\t/;
        $insert->execute( $gamename, $gamedesc, 0 );
        if ($DBI::err)
        {
            print "Error on INSERT $gamename: $DBI::errstr\n";
            $update->execute( $gamedesc, $gamename );

            if($DBI::err)
            {
                print "Unable to UPDATE $gamename: $DBI::errstr\n";
            }
        }
    }
close (FILE);