my $i = 0;
while(my $n = $nh->read_entity_body(my $record, 794)){
	my($ts, $url, $hugo, $ref) = unpack "NZ255Z35Z500", $record;
	print "$n $ts $url\n";
	last if ++$i == 3;
	last unless $n;
}