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