-Mojo

perl -Mutf8::all -Mojo -E 'say$_->{name}for@{g("ws.spotify.com/search/1/album.json?q=Deep Purple")->json->{albums}}'

App::p

p 'S$_->{name}for@{${jl get"http://ws.spotify.com/search/1/album.json?q=Deep Purple"}{albums}}'

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"}}