sub user_list {
	my ($db_ref) = @_;
	my $users = $db_ref->selectall_arrayref("SELECT last_name, first_name from user") or die "$!\n";
	return $users;
}