#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple qw(get);
use Data::Dumper;
use XML::Simple qw(:strict);

my @xx_user=();


my $xmldata=get('http://gdata.youtube.com/feeds/api/users/user/contacts?start-index=1&max-results=50');

my $xml = XML::Simple->new(ForceArray => ['entry', 'link'], KeyAttr => []);
my $xmlref = $xml->XMLin($xmldata);

my $entrys=$xmlref->{entry} or die("NO ENTRYS");
die("NO ARRAY") if(ref($entrys) ne 'ARRAY');

for my $entry (@$entrys)
{
  if(exists($entry->{'yt:status'}))
  {
    push(@xx_user,$entry->{'yt:status'});
  }
}

for(@xx_user)
{
  print "$_\n";
}