read( $fh, my $bin, 4 );
my $c = unpack( 'N', $bin) || return wantarray ? () : [];