use ACE;
$ah = ACE->open("/u02/postalsoft/ace.cfg");
$ah->set_input_fields('discrete');
$ah->want_all_components();
$addr = '101 morris';
$city = 'sbastopul';
$state = 'CA';
$zip = '';
%a = $ah->find($addr, $city, $state, $zip);
for my $key (qw(ADDRESS CITY ZIP ZIP4 COUNTY COUNTYNAME)) {
   print "$key = $a{$key}\n" if $a{$key};
}
$ah->close();