#!/home/ben/software/install/bin/perl

# download a video from youtube.

use warnings;
use strict;
use WWW::YouTube::Download;
my $client = WWW::YouTube::Download->new;

for my $video_id (qw/
5DqnYwKKBQk
Ct9j5oJo8BY
		    /) {
    $client->download($video_id);
}