Select Code to Download

if ($response->is_success()) {
    for my $prop ($response->properties) {
...
    }
    print Dumper \%books;
}