lastfm_nowlistening.pl

#!/usr/bin/perl

use LWP::UserAgent;
use JSON;

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

my $API_KEY = "XXXXXXXXXXXXXXXXXXX";
my $USER    = "xxx";

my $url =  "/2.0/?method=user.getrecenttracks&user=$USER&api_key=$API_KEY&format=json&limit=2";

my $base_url =  "http://ws.audioscrobbler.com";

my $hash = decode_json($ua->get($base_url . $url)->content);

my $artist_name = $hash->{recenttracks}->{track}->[0]->{artist}->{'#text'};
my $song_name   = $hash->{recenttracks}->{track}->[0]->{name};
my $now_playing = $hash->{recenttracks}->{track}->[0]->{'@attr'}->{nowplaying};

if($now_playing eq "true") {
	printf("%s - %s\n", $artist_name, $song_name);
} else {
	printf "Offline";
}