Select Code to Download

##
## Decode data from serialized form
...
}
print $person->{name}, "\n";
print $person->name,   "\n";  ## ditto

use Data::Dump qw/dd/;
my $feed = ...; # parse the data
...
# or
$entity = $feed->EntitySelector("42558_202397_3000_41_1");
print dd($entity);