Select Code to Download

#!/usr/bin/perl

...
        'FooHaHa, TX 76401'     ]   );

print $c->state;

package MyBaseClass;

...
}

1;

package Address;

...
}

1;