https://git.spwbk.site/swatson/misc-scripts/raw/master/yt

https://git.spwbk.site/swatson/misc-scripts/raw/master/yt_dnb/downloader.pl
___________________________________
#!/usr/bin/perl

use strict;
use warnings;

my $YT_DL_PATH = `which yt-dlp`;
chomp $YT_DL_PATH;

my $YT_DL_CMD = $YT_DL_PATH . " " . "-f 'ba' -x --audio-format mp3";
my $YT_DL_SUFFIX = "-o '%(id)s.%(ext)s'";

my $INPUT = "videos.txt";

foreach my $link ( split("\n", `/bin/cat $INPUT`) ) {
print("Downloading $link\n");
my $local_cmd = $YT_DL_CMD . " $link " . $YT_DL_SUFFIX;
print("$local_cmd\n");
`$local_cmd`;
}