while (! $Obj->{EOF}) {
	print $Obj->fields("FieldOne")->{Value}, "\n";
	print $Obj->fields("FieldTwo")->{Value}, "\n";
	print $Obj->fields("FieldThree")->{Value}, "\n";
	$Obj->MoveNext();
}