#!/usr/bin/perl

use DB;

$db = new DB;
$this->{database}		= '*******';
$this->{userid}		= '*******';
$this->{password}		= '*******';

$sql = qq[
	SELECT 
		username
	FROM
		all_users
];

$db->query($sql);

while($db->next_record()) {
	print "err_ctgy: ".$db->col('username')."<br>\n";
}