Select Code to Download

my $age = do {
 my $boss = $company->boss();
 my $wife = $boss ? $boss->wife() : undef;
 $wife ? $wife->age() : undef
};

my $age = $company~>boss()~>wife()~>age();