#This is an exmple to be used for select_sdf
# using the -perl_file option

sub is_sdf_record_kept
{
	my $sdf_entry = shift ;
	my $record_number = shift ;
	
	defined $sdf_entry || die "Assertion failed" ;
	defined $record_number || die "Assertion failed" ;
	
	($record_number >= 3) && ($record_number <= 10) ;
}

1;
