#!/usr/local/bin/perl -w
###########################################
# Spotify search example
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use LWP::UserAgent;
use JSON qw( from_json );

my $ua = LWP::UserAgent->new();

my $resp = $ua->get( 
    "https://api.spotify.com/v1/search?" .
    "q=weezer&type=track"
);

my $data = from_json( $resp->content() );

for my $item ( 
      @{ $data->{ tracks }->{ items } } ) {
    print "$item->{ name } ",
          "($item->{ album }->{ name })\n";
}