How to list all Deep Purple albuns from spotify using Perl ?

deep.purple.pl

use strict;
use warnings;
use English;
use JSON;
use LWP::Curl;
use URI::Escape;
use feature 'say';
use open qw<:std :utf8>;
 
my $search  = "Deep Purple";
my $url     = "http://ws.spotify.com/search/1/album.json?q=" . uri_escape($search);   
my $object  = decode_json(LWP::Curl->new->get($url));
 
say "Query: $search"; say "-" x 80;
 
say $ARG->{name} foreach @{$object->{"albums"}}