#!/usr/bin/perl
use WWW::YouTube::Download;

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

my $video_id='http://www.youtube.com/watch?v=q1wK0r51ARs';
my $video_url = $client->get_video_url($video_id);
my $suffix    = $client->get_suffix($video_id);
my $title     = $client->get_title($video_id);

print "Downloading video $title\n";

$client->download($video_id, {
      filename => 'vedios//{title}.{suffix}', # maybe `video_title.mp4`
  });

print "Download Complete\n";
exit;