# CallBack
sub callback{
	my $self = shift;
	while(my $ref = $self->{STH}->fetchrow_arrayref){
		$self->{CB}($ref);
	}
}