Select Code to Download

#!/usr/bin/env perl
use strict;
...
my $video_id = "sP4NMoJcFd4";
my $client = WWW::YouTube::Download->new;
$client->download($video_id);