Searches YouTube for artist + title of some musical composition and prints out details about videos related to the first result (in other words, it finds related music and other content)

music_related_youtube_videos.pl

#!perl -w
use strict;
use warnings;
use File::Find;
use Image::ExifTool qw/:Public/;
use YAML::XS;
use Win32::Unicode::File;
use Errno;
use Encode;
use WebService::GData::YouTube;
use feature 'say';

my $yt = WebService::GData::YouTube->new;
my $directory = $ARGV[0] // die "Usage: $0 /path/\n";

$|++;

finddepth(
  sub {
    return unless /\.mp3$/i;
    my $info   = ImageInfo($_);
    my $artist = decode_utf8 $info->{'Artist'};
    my $title  = decode_utf8 $info->{'Title'};
    $yt->query->q(encode_utf8("$artist $title"))->limit(1, 0);
    foreach my $video (@{ $yt->search_video }) {
      $yt->query->q('')->limit(50, 0);
      my $related_list =
        $yt->get_related_for_video_id($video->video_id);
      foreach my $related (@$related_list) {
        say join "\t", map { s/\s+/ /g; $_ } $artist, $title,
          $related->title, $related->video_id, $related->keywords,
          $related->genre, $related->rating->numLikes,
          $related->rating->numDislikes, $related->view_count,
          $related->favorite_count;
      }
    }
  },
  $directory
);