use LWP::UserAgent;

        my $video_id = ' ... ';
        my $url = 'http://gdata.youtube.com/feeds/api/videos/' . $video_id;
        my $ua = LWP::UserAgent->new();
        my $res = $ua->get( $url );
        die $res->status_line if not $res->is_success;
        my $xml =  $res->decoded_content;
        # ...
        # ...