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