# clean sub not shown
my $nick = clean(param('nick'));

# Method 1 ( Use prepare )
--------------------------

$dbh = open_dbi();
my $sth = $dbh->prepare(qq{ UPDATE
  $table{'logins'} SET online='N' WHERE nick=? });
  $sth->execute($nick)	
     or bail_out("Cannot execute UPDATE");
# Close connection

#Method 2 ( Use do() )
----------------------
$dbh = open_dbi();
my $sql = qq{ UPDATE
  $table{'logins'} SET online='N' WHERE nick=$nick });
  $dbh->do($sql)
     or bail_out("Cannot execute UPDATE");
# Close connection