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

my( $user ) = @ARGV;
die "usage: $0 user" if !defined $user;

my $oauth = OAuth::Cmdline->new(
    site => "spotify"
);

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

my $resp = $ua->get( 
    "https://api.spotify.com/v1" .
    "/users/$user/playlists" );

if( $resp->is_error ) {
    die "Error: ", $resp->message();
}

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

for my $item ( @{ $result->{ items } } ) {
    print "$item->{ name }\n";
}