#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: get_zipcode,v 1.1 1997/11/30 17:53:41 ejb Exp $
# $Source: /home/ejb/scripts/RCS/get_zipcode,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

my $search = $ENV{'SEARCH'} || "/home/ejb";
push(@INC, "$search/source/perl/modules");
require Zipcode;

my $address = join(' ', @ARGV);

my @fields = split(/,\s*/, $address);
if (@fields != 3)
{
    die "$whoami: address must be street, city, state\n";
}
my ($street, $city, $state) = @fields;

my ($status, @result) = &Zipcode::lookup($street, $city, $state);
map { print $_, "\n" } @result;
exit $status;