#!/usr/bin/perl

use strict;
use warnings;
use Address;

my $c = new Address;

$c->address(    [
        '137 PR 1101',
        'Sun Valley MHP - FM 205',
        'FooHaHa, TX 76401'     ]   );

print $c->state;