Youtube-video-downloader-in-perl is a project mainly written in Perl, it's free.

Wrote this real quick as I needed to get some vids