my $address = Net::UPS::StreetAddress->new();
$address->name("John Doe");
$address->address("123 Test Street");
$address->address2("APT A");
$address->city("New York");
$address->state("NY");
$address->postal_code("10007");
$address->country_code("US");

# the new Net::UPS::StreetAddress object must be passed in, not a Net::UPS::Address object 
my $address = $ups->validate_street_address($address);
if ( $ups->errstr )
{
    if ($address)
    {
        # if an address was returned but an errstr is set it means that this is a "candidate" address
        # candidate addresses are not safe to ship to, but it will point you in the right direction
        # so that you can manually correct the address
        print "Possible address (not safe to ship to):\n";
        print $address->building_name . "\n" if $address->building_name;
        print $address->address . "\n";
        print $address->address2 . "\n" if $address->address2;
        print $address->address3 . "\n" if $address->address3;
        print $address->city . ", " . $address->state . " " . $address->postal_code . "-" . $address->postal_code_extended . "\n";
        print $address->country_code . "\n";
    }
    die $ups->errstr;
}
# the API might have made some changes to the address we gave it
# this is the sanitized address that UPS says is safe to ship to
print "Sanitized address:\n";
print $address->building_name . "\n" if $address->building_name;
print $address->address . "\n";
print $address->address2 . "\n" if $address->address2;
print $address->address3 . "\n" if $address->address3;
print $address->city . ", " . $address->state . " " . $address->postal_code . "-" . $address->postal_code_extended . "\n";
print $address->country_code . "\n";