download leaked videos

gistfile1.txt

use strict;
use warnings;
use WWW::YouTube::Download;
use Parallel::ForkManager;

my $urls = [qw{
    JXkawnuyTn8
    bY0tgl6YLGI
    3eJsXP4HLVs
    gOUvdNjs_Cg
    q3JYT0G94-E
    A7h0S1nk9Hk
}];

my $pm = Parallel::ForkManager->new(scalar @$urls);
for my $url (@$urls) {
    my $pid = $pm->start and next;

    my $client = WWW::YouTube::Download->new(verbose => 1);
    $client->download($url);

    $pm->finish;
}

$pm->wait_all_children;