my $person = tbd_name::Object->new();
my $person->set( "AGE", ::Integer->new(30) );

my $people = tbd_name::List->new();
$people->add( $person );

my $age_range = tbd_name::Object->new();
my $range->set( "AGE", ::Range->new( 19,39 ) );

my $search_result = tbd_name::List->new();

$people->search($age_range, $search_result);