bc.pl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

use constant API => shift;

$ua = new LWP::UserAgent;
$ua->agent('Mozilla/8.0');

my @html = split m|<div class="title">|,
    $ua->request(GET API)->decoded_content;

my ($bc, $album) = (split '/album/', API);

$album =~ s/[^\w-]//g;

mkdir $album;
chdir $album;

shift @html;
for (@html) {
    my ($track) = m|<a href="([^"]+)|;
    
    # sleep 1;
    system 'youtube-dl', qw(-o %(title)s.%(ext)s --restrict-filenames), $bc.$track;
}