%perl> our($dbh); my $users = $dbh->selectrow_array("SELECT count(*)-1 FROM users"); %perl> jbovlastedatabase and system status