sub process_search { 
    my $options = shift; 
    # . . .
}
sub simple_search { 
    my $options = { 
        SearchType => simple,    # Contrived parameters for 
        MaxMatches => 10,        # illustrative purposes.
    }; 
    process_search( $options ); 
}