#!/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;