#!/usr/bin/perl 
use LWP::Simple;  
use lib 'JSON253/lib/';            
use JSON qw( decode_json );     
use CGI::Carp qw(fatalsToBrowser set_message warningsToBrowser);
use strict;                     
use warnings;

my $url = "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet&key=$API_KEY";

my $result = get($url);
die "Could not get $url!" unless defined $result;


##</code><code>##

$jsonstuff = decode_json($result);

$description = $jsonstuff->{items}->{snippet}->{description};

##</code><code>##

"Happy with everything at the moment \x{1f60a}." 

##</code><code>##

"It’s the fans who make it worthwhile."