`ffmpeg -i $_[1] -ab 128 -ar 44100 -b 500 -s 320x240 $_[1].mpg`;

##</code><code>##

perl youtube-downloader http://www.youtube.com/watch?v=dXmKDkAAamc
##</code><code>##

use strict;use LWP::Simple;@_ = get ($ARGV[0]) =~ /var swfArgs = {hl:'en',(video_id):'([\w_-]{11,11})',(l):'([\d]+)',(t):'([\w_-]+)',(sk):'([\w_-]+)'};/;my $url = "http://www.youtube.com/get_video.php?";for (my $i = 0; $i < @_; $i = $i + 2){$url .= "&" . $_[$i] . "=" . $_[$i+1];}`wget -O $_[1].flv "$url"`;